7C0MPJLE JUNK/JUNK XALGQL SYNTAX 

PACKET 1082 

INPUT 5 CARDS FROM ZIP 

TIME 1137 

DATE 78087 TUESDAY* 03/28/78 



*** BURROUGHS B570Q TSmCP MARK XVI.Q.172 AND INTRINSICS MARK XVI. 0,132 *** 
#N0 MESSAGES TODAY 



1*37*53 
X *37>56 
1*37*57 
1 »38i00 
1 8 38t 01 
1 * 38102 
1* 38J03 
113810a 
1*38104 
1*38*04 
1 538*06 
1*36*06 
1 S 38*07 



?COMPIlE JUNK/JUNK XALGOL SYNTAX 

?XALGQl FILE TAPE*ELPA50/U8l9005 DISK SERIAL 
?DATA CARD 

ajXALGQL/JUNK/HAYNES* 3 BQj 1137 10/08/76 
COA IN CA«D DA*XALGQL/^UNK« 3 
DKA IN SER ELPASO u8 19QU5* XALGOL/JUNK* 3 
-EOF NO LABEL CARD D A J XALgOl/ JUNK* 3>N£AR LINE 2215750 
CDA REL CARD DA JXALGQL' JUNKs 3 



?END 



DKA REL ELPASO U819005 *XalGOL'UUnK* 3 
XALGOL/JUNK/HAYNES= 3*P3Ts 2 D$"ED 
FOR X A LGOL/JUNK* 3JPST* 2M0T* 4»cORE' 
PKT*1082 REMOVED 



15360 



1 



7CUMPILE JUNK/>JUNK XALGQL SYNTAX 

PACKET 1080 

INPUT 5 CARDS FROM ZIP 

TIME 1131 

DATE 78087 TUESDAY* 03/28/78 



*** BURROUGHS B5700 TSmCP MARK XVI, 0.172 AND INTRINSICS MARK XVI. 0,132 *** 



#NQ MESSAGES TODAY 



U31U7 
1*31*48 
1*31*50 
1*31*53 
1*31*55 
1*31*56 

I * 31 1 56 

1*31*57 

1131*57 
1*31*57 
1I3U59 

I I 32*00 
1*32*00 



7C0MPIUE JUNK/JUNK XALGQL SYNTAX 

?XALGOL FILE TaPE=ELPAS0/U8 1900b DISK SERIAL 
?DATA CARD 

^'XALGOL/J^NK/HAYNESa 3 BOj 1131 10/08/76 

CDA IN CARD DA *XALGOL/ JUNK* 3 

OKA IN s ER ELPASQ U819005*XALG0L/JUNK s 3 

-EOF NO LABEL CARD DA J XALGQL/ JUNKs 3, NEAR LINE 2215750 

CDA REl CARD DA « XaLG0L/OUNK« 3 



7ENC 



DKA ReL Ei-PASO U819005*XaLgOL/JUNK« 3 

XALQOl/^UNK/HAYNES» 3#PST« 2 DS"ED 

pOR XALQOL/JUNKs 3IPST* 1* lPT» 3#C0Re«}5360 

PKT#1080 REMOVED 



LABEL OOOOOOOOOLINE 001780 8 7CC EX Q/R;FILE S-PASCRUN/DISKiFILE LINE*LINE PRINT; CUMMQN*l; END* /R 

FILEI PASCRUN/DISK TUESDAY 03/28/78 11 (44 AM 

$ CARD SEQXEQ RESET LIST* OOOOi 

%%%%%%%%%%%%%%%%%%%%%% %%%%%%% %%%%%%% %% %%%%%%%%%%%%%%%%%%%%%%%%%%% 0000 2 

* X 00003 
X THE PASCAL RUN TIME-SYSTEM, * 00004 
% .---_---_--_-----------._., % 00005 

* X 00006 
%%X%%%%%t%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 00007 

BEGINX 00008 

INTEGER V00i67*V00l68#V00l69;% 00009 

FILE INPUT ^JNPUT" (2,10);X 00010 

FILE OUTPUT 1 (2»17);x 00011 

* 00012 
DEFINE PRUCEDU »PRQCE0URE#, X 00013 

FUNCTN =REAL PROCEDURE*, X 00014 

OOWNTO rSTEP -1 UNTIL*, X 00015 

UPTO sSTEP 1 UNTIL*, X 00016 

B »B00LEAN#,X 00017 

F00603 «INPUT##X 00018 

F00742 s0UTPUT#,X 0001V 

LASTGH *C5»6]*,X 00020 

BUFSIZE *C13!83*,X 00021 

BUFPNT =t2H8]#,X 00022 

EOF »C22»1]*,X 00023 

EOLN st23ll]#,X 00024 

INP sC24U]f,X 00025 

OUTP ■C25U3##* 00026 

ENDF0UNDsC26»l]#,X 00027 

MEMSI2E =1OO0O*»X 00028 

MAXINT *5497558l3887lKj% 00029 

* 00030 
ARRAY MEMC0»MEMSI 2 E DIV 1022,0 J 1022 J , TEXT,CHaR 1 : J, T£MPTEXT CO 119 ] ,% 00031 

V00603C0J93, V00742C0»163;X 00032 

INTEGER MEMPNT,T#Tl, 100603, I00742;X 00033 

POINTER CHARPNT,TEXTPNT;X 00034 

LABEL TERMINATE;* 00035 

FORMAT TERMMESS <"**** PROGRAM EXECUTION TERMINATED Ay LINE ", I *,". » ) ,X 00036 

CHECKERR ("**** THE VALUE ">1*," IS NOT IN THE RaNGE ",I*,",,",* 00037 

I*,","),X 00038 

ERRMARK CX*,"x"),X 00039 

CQNCATERRC •»**** CONC AT ERROR' C M ,I*, ,, «",I*,"*",I*, ,, ;r),X 00040 

ILLEGALCCC"**** ILLEGAL CARRIAGE CONTROL CHARACTER $'»""", A I, """ )i % 00041 

SWITCH FORMAT ERRMESS »»X 00042 

()#X 00043 

(«**** NO READING WHILE EOF IS TRUE,"), XI 00044 

<«**** no WRITING WHILE EOF IS FALSE,"), *2 00045 

("**** ILLEGAL CHARACTER,"), X3 00046 

<"**** OVERFLOW ERROR. 8)# X4 00047 

( «**** no Reset/rewrite on input/output. »), xs ooo48 

(-**** line image overflow."); %t 00049 

MONITOR ExP8vR»*REAL0vERFLQw;X 00050 

* 00051 
INTEGER PROCEDURE NUMDIG ITSC N) I X 00052 

VALUE N; INTEGER NiX 00053 



NUMDIGITSI =IF N<0 THEN 1+NUMDlG ITSC -N ) ELSE* 

IF N>9 THEN 1 + NUMDlGlTSCN DI.V 10? ELSE H% 
X 
PR0CE0URE RUNERH(ERRNUM^UINENUM)' **** RUN TIME ERROR *** 

VALUE erRNum>linenum;x 

INTEGER ERRNUM#LlNENUMiiK 
BEGINX 

WR I TE (OUTPUT 'ERRMESStERRNUMJ))* 

WRITE( OUTPUT 'TERMMESS^NUMQIG ITS CLINENUM),L IN tNUM);x 

GO TO terminate;* 

END OF RUNERRJX 
X 

integer procedure checkc val>llm l>llm2,l inenum ) ; x 
value val»limi*lim2>linenum;x 
integer val#lim1>lim2,linenum*x 

BEGINX 

IF VAL<LIMI OR VAL>LIM2 THEN* 

begin write(0utput# c hec k e r r' n u m 0igits(val)#val*num d igit5(lim1},x 
umi#numdigits(lim2)#lim2);x 
runerr(4>linenum);x 
end;x 

checkis«al;x 
end of check;* 

X 

alpha procedure curdat;* 

CUROATI*" "4TIMEC5H 41*35:36];% 

X 

ALPHA PROCEDURE KEEKDAJX 

WEEKDA»*TIMEC6)« M " C <» 1 « 5 » 6 3 / X 

X 

INTEGER PROCEDURE TRUNC (X»LINENUM >* % 

VALUE X'LlNiNUM;* 

REAL x; INTEGER LIMENUM/X 

BEGINX 

IF ABs<X>>MAXlNT THEN RUNErRC 4,LlNENUM )> X 

TRUNC«=IF X<0 THEN -ENTIeRc'X) ELSE ENTIeRCX);* 
END OF TRUNCU 
X 

integer procedure roundc x>llnenumj; x 

value x*linenum;x 

real. x; integer linenum;x 

BEGINX 

IF ABSCX)>m*XInT THEN RUnErR(4> lInEnUm)/ X 

ROUNDlsXJfX 
END OF ROUNDS 
X 

BOOLEAN PROCEDURE QOO(N)jX 
VALUE N; INTEGER N;X 
QDDI*N MOD 2 s {}% 
X 
REAu PROCEDURE SflR(X#LlNENUM>; X 

VALUE x*linenum;x 

REAL x; INTEGER LINENUM;X 
BEGINX 

if abs(x)>2,0769l87p34 them runerrc 4, linenum 3 j x 
sqrssxxx;x 

END OF SQR;X 



00054 
0005b 
00056 
0005? 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 

00068 
00069 
00070 
00071 

00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 

00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 

00088 
00089 
00090 
00091 
00092 
00093 
00094 

00095 
00096 

00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00108 
00109 
00110 



* oom 

BOOLEAN PROCEDURE InClHA,B>; %*** IS THE SET "A" INCLUDED 00112 

value a*b; real a»b; %*** in the set m b m , 00113 

inclh*realcbooleanca) and not bqqleancbjjsq;* ooih 

% 00U5 

BOOLEAN PROCEDURE I|mCL2(A*B); %*** IS THE SET "B n INCLUDED 00116 

VALUE A*B; REAU A#B; %*** IN THE SET "A m # 00117 

INCL2»*REAL(B00LEANCB) AND NOT BOOLEAN(A))sO;X 00118 

* 00119 
BOOLEAN PROCEDURE INTST(A»B)^ X*** IS THE VaLuE "a" AN ELEMENT 00120 
VALUE A*B; REAL A»B# %*** IN THE SET "B"t 00121 
INTSTI = IF A<0 OR A>$8 T H EN FALSE ELSE O&B [01 38-A » 1 3s i; % 00122 

* 00123 
PROCEDURE NEWCP,SIZE);X 00124 

VALUE SIZE; REAL PJ INTEGER SIZE;* 00125 

BEGINX 00126 

pl»IF MeMpNT+SIZE>MeMSIZE THEN ELSE M£MpNT;X 00127 

mempnti*mempnt+size;x 00128 

end of new;x 00129 

X. 00130 

procedure dlsposecp#size);x 00131 

value size; real p; integer si 2 e;x 00132 

BEGINX 00133 

END OF DISPOSED 00134 

X 00135 

PROCEDURE PACKCA*LLIm,ULIM'I'Z*LInEnUm)>X 00136 

VALUE LLIM,ULIM,I#LINENuH;x 00137 

ARRAY AC*J; ALPHA Z;X 00138 

INTEGER UIM,ULIM,I,LINENUM;X 00139 

BEGINX 00140 

Z»»0;x 00141 

FOR Ti»s0 STEP i UNTIL 6 DqX 0Ql4g 

ZI«ACCHECK(I + T1,lLIM»UlIM,lINENUM)] & Z C41 * 351 36j; % 00143 

ENDlX 00144 

* 00145 
PROCEDURE UNPACkCZ>A,LLIM,ULIM,I>L1NENUIO;X 00146 
VALUE Z#LLIM,ULIM,I#LINENUM;X 00147 
ARRAY A[*j; ALPHA Z;% 00148 
INTEGER LLIM,ULIM,I,LINENUM;X 00149 
FOR TllsO STEP 1 UNTIL 6 DOX 00150 
ACCHECKCI+TI^LLIM'ULIM^LINENUM)];* i Z C5t4l-6>«Tll63;x 00151 

* 00152 
REAL PROCEDURE CONC A T (A,B# AS»Bs» N,LlNENUM ); % 00153 

VALUE AjB#AS,B5#N^LINENUM.;X ..... 00154 

REAL A#8; INTEGER A$,BS,N,LINEnUM;X 00155 

BEGINX 00156 

JF AS<1 OR BS<1 QR N<0 OR AS+N>48 OR BS+N>48 THENX 00157 

BEGINX 00158 

WRlTECOUTPUT#GONCATERR*NuMDIGlTSCAS)/.AS*NUMDIGlTS(BS)*X 00159 

BS#NUMDIGITS(N)#N);X 00160 

RUNERRC0>LINENUM);X 00161 

END;X 00162 

CONCATIbA 4 B C47-ASI47-BS|N3;X 00163 

END OF CONCAT;X 00164 

* 00165 
BOOLEAN PROCEDURE BI T(N,LlNENUM)> **** SET BIT NO «N" IN A WORD, 00166 
VALUE N#LINENUM; INTEGER N#LINeNUM;» 00167 



00165 

......... .j 



8lT»sBQ0LEANC0 & 1 C 38-CHECKC N,0, 38 ,LINENyM ) S »! i )} % 00168 

X 00169 

BOOLEAN PROCEDURE 8ITSC Nl ,N2#LINENUM ); %*** SET BITS "Nl". ."N2«. 00170 

VALUE N1>N2,LINENUM;X 00171 

INTEGER Ni*N2*LINENUM;X 00172 

BITSl»BOOLEAN(0 & 3" 7777777777777" C 38-CHECK C Nl, 0, 3e#LlNENUM ) » 3qI X 00173 

CHECK (N2#0#38»LINENUM)-N 1*1] )i% 00174 

* 00175 
PROCEDURE RLINECF#BUF»INFO);X 00176 
FILE FJ ARRAY BuFCfli; INTEGER INFO** 00177 
BEGINX 00178 

LABEL ENDFIi_E;X 00179 

INF0.E0LN|*0> INF0,BUFPNTt=i;% 00180 

READCF*999*§UFC*]) CENDFILe^* 00181 

REPLACE CHARPNT BY P0INTER( BuF C * 3 ) FOR i;x 0018? 

INFOtLA5TCH!=CHARC03;x 00183 

IF FALSI THENX 00184 

BEGIN ENDFIlE* I NF0.ENDFQU N D **i;X 00185 

ENDiX 00186 

ENO OF RLINEJX 00187 

X 00188 

REA L PROCEDURE PREAD (F, BuF, InFq,MODE,lINENuM ) > X 00189 

VALUE MQDE'EINEnUM;X 00190 

FILE F; ARRAY BUFC0JU 00191 

INTEGER INFQ*MQDE#LINENUM;X 00192 

BEGINX 00193 

DEFINE GETCMAR*X 00194 

BEGINX 00195 

If BOOLeANC JNFO.EPLN) THEN* 00196 

BEGINX 00197 

Rt;lNE(F,BuF,lNFO); CH i slNFQ .LASTCH; X 00198 

END ELSE* 00199 

IF INFO.BUFPNT'INFO.BUFSIZE THENX 00200 

BEGIn CHS*" w ; INFO.EOLN"! EnD ELSeX 00201 

BEGINX 00202 

Replace chaRPnt by pointeRcbufc*] )+info,bufpnt for t j% 00203 

CHisCHARCO]; InF0,BuFPNTJ*INF0»BuFPNT+1;X 00204 

END END OF GETCHAR#;X 00205 

* 00206 
DEFINE READERR(ERRNuM)*X 00207 
BEGINX 00208 

WRITE<0UTPUT*999'BUF[*])JX 00209 

WRITEC0UTPUT#ERRMARk>InFQ.BUFPnT-1)JX 00210 

RUNERRCERRNUM?LINENyM);X 002li 

END OF READERR*;X 00212 

* 00213 

REAL RES; ALPHA CHjX 00214 

BOOLEAN NEGATIVE, NEGExPJ INTEGER POWER, ExP>* 00215 

LABEL OVERFLOW,RETURN;X 00216 

* . . „ 00217 
!F B0QLEAN(iNF0,E0F) THEN RUNERR< t,L INENUM); % 00218 

IF 800LEANCINFO.ENDFOUND) THENX 00219 

BEGINX 00220 

INF0,E0F«=U PREAD«»0;X 00221 

GO TO RETURN;* 00222 

ENDiX Q0223 

IF M0DE«1 THEN X*** MODE * CHAR *** 00224 



BEGINX 

PREAD»sINFO.LASTCH; GETCHAR; INFO, 
END ELSEX 
BEGIN ** 

chi*info,lastch;x 

while ch» m " and not boolean< info .en 

if booleanunfo.endfound) thenx 

BEGINX 

iNFO.EOFlai; PREAD*»0;X 
GO TO RETURNS 

ENDJX 

if ch*"+" or ch*«- m then begin negat 
if ch>9 then readerr(3)j% 
resjsch; getchar;x 

WHILE CHS9 DO BEGIN RES I slQxRES + CH J 
IF MODE*3 THEN X MODE * REAL. 
BEGINX 

IF GH*", M THENX 

BEGINX 

GtTCHAR; IF CH>9 THEN READERRC3 
WNILE CHS9 DO BEGIN RES«»lOxRES* 

ENDJX 

IF CH*"E" THENX 

BEGINX 

getchar;x 

IF CH»"+ M OR cH aN - M THEN BEGIN N 

IF CH»9 THEN REA0ERR(3);X 

WHILE CHSt DO BEGIN EXPl«lQxEXP+ 

if negexp then exp**-£xp;* 
end;x 

POWER»»POWER+EXp;X 

re aloverfudw j "Overflow; resides* 
if false then overflow! readerrt 
realoverflowj*0;x 

END EfeSE IF R|S>M A XINT THE N RtADERRC 

pread;*if negative then -res else re 
info,iastchi=ch;x 

end;x 
returnu 
end of preadjx 

X 
X 

PROCEDURE WLlNECF,8|jF,lNF0); 

FILE Ft ARRAY BUFCOU INTEGER INFOU 

BEGINX 

alpha cc;x 

IF BO.QLIANCINFO.QUTP) THEN*. 
BEGINX 

REPLACE CHARPNT BY POl NTeRCBUF £ *] ) F 
REPLACE P8lNTER(ByFC*]) BY " n i% 
IF CC*" " THEN WRITE(00TpUT#999*BUF[ 
IF CC*"*" THEf? WRITE(0UTPUT[N03#999^ 
BEGINX 

IF CC^'O" THEN wRlTE(OuTPUTJ ELSEX 
IF CC S "- M THEN WRlTECOuTPUT[DBL3) 
IF CC» M l w THEN WRITECOUTPUTEPAGEJ) 
WRITE (OUTPUT* ILLEGALCC,CC);X 



LASTCH«sCH/X 

** MODE » REAL/INTEGER *** 

dfound) oo getchaR;x 



IVElsCHs"-"; GETCHAR END>X 



getchar end;x 



)/X 

CHiPQWERlaPOWER-l^GETCHAR END/ 

EGEXP'^CH*"""' GETCHAR E n 0'* 
Ch; GETCHAR ENDJX 



io*pqwer;x 

4);X 

4);x 
s;x 



X*** PRINT A LINE.*** 



or n cc««charco3;x 

*}) ELSEX 
BUFC*]) ELSEX 



ELSeX 

ELSEX 



0022b 
00226 

00227 
00226 
00229 
00230 
00231 
00232 
00233 
00234 
0023b 
00236 
00237 
00238 
00239 

00240 
0024} 
00242 
00243 
00244 
00245 
00246 
0024F 
00246 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
0025P 
00258 
00259 

00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
00269 
00270 
00271 
00272 
00273 
00274 
00275 
00276 

00277 
00278 
00279 
00280 
00281 



WRI TEC OUTPUT* 999* BUFC*J )t% 00282 

ENDJX 00283 

END ELSE WRITE(F*999#BUFC*J);X 00284 

REPLACE POlNTERCBuFt*]) BY « " FOR INFO ,Bl)FS JZEJX 00285 

INFOiBUFPNTl»0;X 00286 

ENO OF WLINEJX 00287 



X 
X 



00288 
00289 



PROCEDURE CHFILCF);* 00290 

FILE F;X 00291 

BEGINX 00292 

ARRAY A[0!6];X 00293 

SEARCH(F#AC*J);* 00294 

IF . ACO J»-l THEN* 00295 

BEGINX 00296 

F, AREAS »■ 20U 0029f 

F f AREASlZE :* 300JX 00298 

ENDJX 00299 

end of chfil;x 00300 

X 00301 

X 00302 
PROCEDURE WALFA<F,BuF,lNF0>Al,A2,A3,A«,A5,A6,A7,A8,A9,AlQ,An*A12,AtENG> 00303 

HNENUM);x 00304 

VALUE A1*A2,A3,a4,A5,A6,A7,a8, A 9#A10*A11*A12,ALENG,lINENUM;X 00305 

FILE ft ARRAY BUFC63* INTEGER INF^*. ALENq*L INENUM; X 00306 

ALPHA A1>A2,A3,a4>A5,a6,A7,a8>a9>A10*AH,A12;x 00307 

BEGINX 00308 

ALPHA A; POINTER PnT;x 00309 

LABEL EXim 00310 

IF NOT BOOLEANdNPOtEOF) THEN RUnERRC 2* j.1 nEN^M); * 00311 

IF lNFO«BuPPNT+ALENG>lNFO.BUPSlZE jHEN wL lNE< F*BuF> INFO ) i% QQ312 

pnti»pointerCbufc*])+info. b ufpnt;x 00313 

lNFO.BuFPNTl*lNFC«BuFPNT+ALENGiX 00314 

FOR A**Al'Al'A3'A4'A5>A6'A7»Ae'A9>Al0*All>Al2 OQX 003j5 

BEGINX 00316 

TEXT[0]I*a;x 00317 

REPLACE PNTtPNT BY TEXTP N T FOR MlNC ALENG*7 J * % 00318 

ALENG|sALENG-7J if alengso THEN GO TO EXITJX 00319 

end;x 00320 

EXITIX 00321 

END OF WALFAjX 00322 

X 00323 

X 00324 

PROCEDURE PWRITE<P*BUF*INFQ,E*EM0DE/M,N#LINENUM^X 00325 

VALUE E*EMQeE>M,N#LINENuM;X 00326 

FILE Ft ARRAY BUFCQj; REAL E;X 00327 

INTEGER INFO*EMODE*M,N*.LI.N1NUM;X 00328 

BEGIN* 00329 

INTEGER NCHARS*NEXP, H PqjNTER CPNTjX 00330 

DEFINE HUTCHARCO* X PUTS A CHARACTER INTO TEMPTEXT 00331 

BEGIN CHARC«]J*C; NCHARS »*nCHANS+ \i X 00332 

REPLACE GPNTlCPNT BY CHARPNT FOR i;X 00333 

ENDI/X 00334 

X 00335 

PROCEDURE PUTINT(N); % PUTS AN INTEGER INTO TEMPTEXT 00336 

VALUE N* INTEGER Hi. X WITH ZERO SUPPRESSION, 00337 

IF NS9 THEN PUTOHARCN) ELSEX 00338 



BEGIN PUTINTCN DIV lO); PUTCHAR (ENTIER (N MOO 10)) ENOJX 0033V 

0Q34Q 

CPNT»»P8INTERCTEMPTEXU*J)j* 00 301 

IF NOT 800LEANCINF0.E0F) THEN RUNERRC2* L 1 nEn^M )*% 00342 

IF EMQDE«1 THEN **** MODE « INTEGER *** 00343 

BEGINX 00344 

IF E<0 THEN BEGIN PUTCHAR( "-" ) t E»*-E ENDJX 00345 

PUTINT(E);* 00346 

END ELSEX 00347 

IF EM0DE*2 THEN X*** MOOE * REAL *** 00348 

BEGINX 00349 

PUTCHARC" M );x 00350 

IF E<0 THEN BEGIN PUTCHARC"-" )t E»*-E END;* 00351 

IF E>MAXlNT OH N<0 THEN X FLOATING-POINT , 00352 

BEGINX 00353 

IF E>0 THENX 00354 

BEGINX 00355 

WHILE E<1 00 BEGIN NEXP' sNExP-U E»*1Q*E END;x 00356 

WHILE EilO DO BEGIN NEXP « »NEXP + U E»»E/lO END;X 00357 

ENDJX 00358 

H*MAX(M-8*1)U 00359 

EI»E+0.lxlO*(-pI);X 00360 

IF E GE9 19 THEN BEQlN NEXP.»«NEXP*U. E»*E/Iq ENQJX GQ361 

putchar(Entier(e)); ei*e-entier<E); putchar(". w );x 00362 

00 BEGINX 00363 

e»»io*e; putchaR(entierce))^x 00364 

E!sE"ENTIERCE)J I«*I*i;x 00365 

END UNTIL ISOU 00366 

PyTCHAR("E"iJX 00367 

IF SEXP<0 THEN BEGIN PyTCHAR ("-" )i NEXPl'-NEXP ENDX 00368 

ELSE pUTCHAR( w + M )iX 00369 

PUTCHAR(NEXP DIv 1Q)> PUTCHARCENTIERCNEXP MOD 1Q))>X 00370 

END ELSEX 00371 

BEGIN X FIXED-POINT. 00372 

E»*l+O t fxi@*C*N);X 00373 

PUTINT(ENTIERCE)); PUTCHARC ". m ); E » «E-ENTIER( E ) i X 00374 

IF N>150 THEN RUNERRC6, LINENUM ) i % 00375 

FOR Il-l STEP 1 UNTIL N OOX 00376 

BEGIN EI-11XE) PUTCHAR(ENTIER(E))iX 00377 

EI*E-ENTIER(E);X 00378 

END END END ELSEX 00379 

IF EM0DE*3 THEN X*** MODE * BOOLEAN *** 00380 

BEGINX 00381 

IF E<0,5 THEN REPLACE CPNT BY "FALSE" ELSE REPLACE CPNT BY -TRUE"; 00382 

NCHARSI«IF E<0,5 THEN 5 ELSE 4;x 00383 

END ELSEX 00384 

IF EMODEaS THEN X*** MODE « ALFA *** 00385 

BEGINX 00386 

textco]i»e; nchars»*min(m#7);x 00337 

replace cpnttcpnt by textpnt for ?}% qq388 

END ELSEX 00389 

BEGIN X*** MODE m CHAR *** 00390 

PUTCHAR(E);X 00391 

end;x 00392 

IF NCHARS>M THEN MI*NCHARSjX 00393 

IF !NFO.BUFPNT+M>lNFOtBUFSizE THEN WLlNE(F»BUF , INFQ )} X 0039* 

IF M>lNF0,BuFSlZE THEN RUNERR (6*LINENUM) * X 00395 



REPLACE POInTERCBUF[*] )*(I N FO,BUFPNT + M-NCHARb) BYX 00396 

P0INTER(T£MPTEXTC*3) FOR NCHARSiX 0039F 

INFO.BUFPNTl*INFO,BUFPNT*M|* 00398 

END OF PHRITE;X 00399 

X 00400 

X 00401 

PROCEDURE PUT(F*BUF# INFO*LINENU^)'X 00402 

VALUE LINENUMJX 00403 

FILE Ft ARRAY BUFt*m 00404 

INTEGER INF0#LINENUM;X 00405 

BEGIN* 00406 

IF INFO.BUFSIZE»0 THENX 00407 

BEGINX 00408 

IF NOT BOOLEAN(lNFOtEOF) THEN RUNERR(2>LINENUM ) ;X 00409 

WRITEIF#1«23,BUFI*])U 00410 

E^D EUSg PWRIT|(F»BUF*lNF0*lNF0»UASTCH#4»l#i'LIN£NUM>U 00411 

END OF PUTJX 004^2 

X 00413 

X 00414 

PROCEDURE GET<F,BuF,lNFQ,LlNENuM)>X 00415 

VALUE LINENUM;X 00416 

FILE F> ARRAY &UFC*3;X 00417 

INTEGER INFQ>UNENUM;X 00418 

BEGINX 00419 

alpha x; label endfile;x 00420 

IF INFQtBUFSlZEeO. THENX 00421 

BEGINX 00428 

IF BOOLEAnCInFO.EoF) THE N RUN£RRCl,LlNENUMJ;x 00423 

READCF*1Q23#BU.FC*1). CENDFILE3**. 00424 

IF FALSE THEN EnOFIlE' iNFOtEOF « s l; * 00425 

end else x»«pre»dcf,buf,info#i»lInenum);x 00426 

end of get;x 00427 

X 00428 

X 00429 

PROCEDURE PPAGE(F,BuF,lNFQ,LlNENUMm 00430 

value linenumu 00431 

file f; array bufc*];x 00432 

INTEGER !NFO,LlNENua;x 00433 

BEGINX 00434 

IF NOT BOOLEANCINFO.EOF) THEN RUNERRC 2»LlNENUM ); X 00435 

WRITECFIPAGEUIX 00436 

END OF PPAGEJX 00437 

X 00438 

X 004 39 

PROCEDURE RESET(F,|gF,iNFO#LINENUM)>X 00440 

VALUE LINENUMU 00441 

F I LE F J ... A RR A Y 8 JUJF l.*U X 00442 

INTEGER INFO,LINENUM;X 00443 

BEGINX 00444 

if b°°leancinf0,inp) or booleancinfo.outp) then runfcrr (5#l inenum ) i % 00445 

rewind(f); lnfq.e0f«-8; infq.eolni «0; inf0,bufpnt*«0u 00446 

infOiendfdundi««;x 00447 

IF INFOiBUFSIZEsQ THEN GETCF#BUF *I NFQ#LINENUH )X 00448 

ELSE RLlNE(F»8UF#INF0);X 00449 

ENO OF RESETU 00450 

X 00451 

PROCEDURE REWRITE(F#BUF,INFQ»LINENUM)JX 00452 



value iinenum;x 00453 

file f; array bufc*];% 00454 

integer inf0*linenuw;x 00455 

BEGJNX 00456 

IF BOOLtANCINFOtlNP) OR BGoi^EANl iNFOt OUTP ) THEN RUNERRC5* Li NENUMJJ* 00457 

REWIND(F); iNFO.EOFlsli INFO tBUFPNT I *Qi INFQ.ENDFQUND l*o;X 00458 

IF INFQ.BUFSIZE»0 THEN* 00459 

REPLACE P0INTER(BUFC*3) BY " " FOR INFQ.BUFSIZE J X 004$Q 

END OF REWRITE;* 00461 

X 00462 

X 00463 

PROCEDURE INITCINPUTQECLHX 00464 

VALUE INPUTDECUX 00465 

BOOLEAN INPUTDECLJX OO466 

BEGINX 00467 

MEMPNTIMU 00468 

CHARPNT»«PQINTER(CHARC*3)+7^ TtXTPNT ««POINT^RC TEXTC* 3 HliX 00469 

T«*0> T f BUFSl2E»*80' f . BUFPNT **80i T,EOLN»*W T f INPl»lJX 00470 

I00603I-T; IF INPUTDECL THEN RLlN£ClNPUT,VQ06Q3,I006Q3);X 00471 

Tl»0' T,BUFSiZE!«132J T,EOLN» a l> T.QUTPt»l> T.EQFlMJ* 00472 

I00742I*T;X 00473 

REPLACE P0UJTER(V00742[*3) BY " " FOR 17 WQROs;x 00474 

END OF INIT;X 00475 

L ABE|_ 000000000 L I N E 00178087CC EX Q/R;FI L E S »PASCRUn/DIS k JFI |.E l InE*i.InE PRInT JCQmmQN»1*EnD+ /R 



?CQMPIUE JUNK/JUNK XAlGQL SYNTAX 

HW 1 l08 § CARDS FROM ZIP 

TIME 1135 

DATE 78087 TUESDAY' 03/28/78 



*** BURROUGHS B5700 TSMCP MARK XVj f 0,l72 AND INTRlNSICS MARK XVI, 0,132 



*** 



#N0 MESSAGES TODAY 



il'39« 


1H391 


1H391 


1U39I 


11139, 


11(391 


111391 


11(39, 


lit 391 


11(40, 


111481 


11 1481 


111491 


11(51, 


111511 


1H511 


Ul 5 lt 


11*511 


11,51, 


1H51I 


111511 


1U5U 


1H511 


111531 


111551 


111551 


111591 


11156, 


11(561 


11(561 


llf56l 


111581 


11(581 


121001 


12(00( 


121001 


12(001 


121001 


12(091 


12(091 


12(091 



17 
20 

20 
24 

26 
28 
30 
33 
57 
01 
30 
30 
38 
07 

07 
07 

08 
20 
30 

30 
30 

31 
31 
29 
10 

39 
45 
13 
22 
27 
27 
46 
46 
08 
11 
11 
11 
12 
12 
12 
12 



?C0MPIUE JUNK/JUNK XALGOL SYNTAX 

?XaLG0L FILE TapE'ELpaSq/HaYNeS DISK SERIAL 

?DATA CARD 

4IXaLgOL/JUNK/HAYNeS* 3 6 QJ ii 3 9 10/08/76 

coa in card da(xatool/junk» 3 

dka in seR elpaso hayneSixalgol/junk«* 3 

P801085 out on lineixalgql/junk* 3 

DSKl HAYNEStXALGOL/JUNKss 3 

JUNK jUNK'XALGOL/jUNKa 3 
DSK2 HAYNESlXALGOL/JUNKs 3 



?END 



out 

OUT 

Out 



ser 

RDM 
SER 



DKA 
DKA 
DKA 
3TI 
TIME FOR XALGOL/JUNK* 3 IS 4,26 
PaoiOflS OUT 012(XALGOL/JUNK» 3 
CDA REL CARD DA , XALGOL/JUNK* 3 



IN 9111 



DKA 
DKA 
DKA 



REL 

Out 
out 



elpasq HAYNESlXAi p GQ(„/JUNK« 3 
SEH DSRTi HAYNE5JXALG0L/JUNK* 3 
SER DSRT2 HAYNESlXALGOL/JUNKs 3 

dsrtl/haynes/haynes* segs— created 03/28/78 at 11,51,07,18 

dka r eL dsRti haynesixaLgol/junk* 3 

dsrt2/haynes/haynes s segs — created 03/28/78 at iu51i18is3 

DKA R E L DSRT2 HAYNeS IXALqOL/ JUNK* 3 

SER DSRTI HAYNES, XALGOL^ JUNKs 3 
SER DSRT2 HAYNES,XALGDL/ JUNK* 3 

3- 151 SEGS, 

30K 

#N0 

30K 

#N0 

DS 

*NQ 

DS 

«N0 

IDS 

*OPRTR DS-ED1XALG0L/JUNK* 3/NEAR LINE 17100100 
0SK2/haTn£S/HAYnES« 900 SEGS—cREaTED 03/28/78 AT 11(40100(13 

DKA RtL D5K2„HAYNEStXALG0L/JUNK» 3 

DSK1/haYNES/HAYNeS« 300 SEGS— CHEATED 03/26/78 aT 11(39131139 

DKA REL DSKl HAYNES1 XALGOL/ JUNK* 3 

PBD1085 REL 012 LINE 75O2«XALG0L/JUNK* 3 

JUNK/JUNK/HAYNES. 630 SEGS — CREATED 03/28/78 AT 11139(55(41 



DKA OUT 

DKA OUT 

*N@ US E R 



US E R 

US E R 

OK 
US E R 

OK 
USER 



diskixalgql/jUnk« 
disk*xalgol/junk* 
diskixalgol/junk* 

DISK1X ALGOL/ JUNKm 
DI5K,XALG0L/JUN** 



3- 151 
3- 151 
3- 151 



SEGS, 
SEGS, 
SEGS, 



3* 151 SEGS 



12100113 OKA REL JUNK JUNK « XAlGQL/ JUNK* 3 

12J00U3 DSRT2/HAYNES/HAYNE5* 2112 SEGS— CREATED 03/28/78 AT 11»53«28U1 

12J00U3 OKA REU 0SRT2 HAYNES iXALGQl/JUNKs 3 

12100113 DSRTI/HAYNES/HAYNE5* 2U2 SEGS--CREATED 03/28/78 AT 11 t5| 130116 

121001 14 QKA REl OSRTl HAYNES IX ALGQU JUNKw 3 
12J0»»16 XALGOL/JUNK/HAYNESs 3»P5T» 10»Q5 DS-E.0 
12J00I16 FOR XALGOL/JUNK* 31PST* 605*IOT B 273* CORE" 15360 
12100* 16 PKT#1084 REMOVED 



LABEL OOOQOOOOOLINE 001780877C0MPILE JUNK/JuNK XALGOL SYNTAX 

CUSTOMS B-5700 IPC XaUQI COMPILER M A RK XVI. 0. 00-424 



XALGUL /JUNK 
TUESDAY* 03/28/78* 11 « 39 aM , 



JUNK /JUNK 



xxxxxxxxxxxxxx%x 

X 
X 

X 
X 
X 

X 
X 
X 

X 
X 
X 
X 

X 

xxxxxxxxxxxxxxxx 

X 
X 
X 

X 
X 
X 

xxxxxxxxxxxxxxxx 

X 
X 

BEGIN* 

define edition*" 

integer numerrs* 

SaVefacT 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 
X 

* * X 

♦ PASCAL COMPILER* X 
*********************************** % 

X 
X 

WRITTEN 1975 BY X 

DAG F, LANGMYHR* X 

HERIOT-HATT UNIVERSITY, X 

EDINBURGH, X 

X 
X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

X 

PART 11 DECLARATIONS, X 

............. % 

X 

X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



2.3"#;x 

OR* 



cardcnt; 

FILE CARD "SqUrC 
FILE LINES 1 (2, 
FILE PASCALGOL D 
DEFINE LJNESPERP 
MAXINT»54 
X 

X*** COMPILER CO 
DEFINE MAXTABLES 

maxnames 
maxlevel 

MAX6ASES 
MAXLABS 

MAXPARAMS 

MAXTYPES 



E" (2*10 

I7)i 

ISK S E RI 

AGE*58#, 

97558138 



% PR + 

X PR + 

X 

X 

X 

X PR* 

'150) 

AU C2 

X 

87#iX 



21} NUMBER OF ERRORS IN PROGRAM, 
22» S A VEFAC T0R FOR c°DE FILE. 

>0 COMPILE TO LIBRARY, 

«0 COMPILE ANO RUN, 

<0 COMPILE FOR SYNTAX, 
23* NUMBER OF CARDS READ, 
; X SOURCE CODE INPUT F^E 

X PRINT FILE. 
0»600) C2MQ,150*S A VE 0); X CODE FILE 



NSTANTS *** 
«50#, 

*997#> 

• 2li#» 
«100#* 
?20QJ/ 
«1022#* 



XMAX NUMBER QF NAME TABLES. 

XMAX NAMES IN EACH TABLE, 

XMAX DEPTH OF PROCEDURE DECLARATIONS, 

XMAX LABELS IN A CASE-STATEMENT, 

XMAX NUMBER OF LABELS, 

XMAX NUMBER OF PARAMETERS JN WHOLE PRQGRi 

XMAX NUMBER OF DIFFERENT TYPES, 





00003 


T 0000 




00004 


T 0000 




00005 


T 0000 




00006 


T 0000 




00007 


T 0000 




00008 


T 0000 




00009 


T 0000 




00010 


T 0000 




00011 


T 0000 




00012 


T 0000 




00013 


T 0000 




00014 


T 0000 




00015 


T 0000 




00016 


T 0000 




00017 


T 0000 




00018 


T 0000 




00019 


T 0000 




00020 


T 0000 




00021 


T 0000 




00022 


T 0000 




00023 


T 0000 




00024 


T 0000 




00025 


T 0000 




00026 


T 0000 




00027 


T 0000 


START OF SEGMENT 


******* 




00028 


T 0000 




00029 


T 0000 




00030 


T 0000 




00031 


T 0000 




00032 


T 0000 




00033 


T 0000 




00034 


T OOOG 




00035 


T 0000 




00036 


T 0003 




00037 


r 0007 




00038 


T 0013 




00039 


T 0013 




00040 


T 0013 




00041 


T 0013 




00042 • 


r 0013 




00043 


T 0013 




00044 


r 0013 




00045 


T 0013 




00046 


r 0013 




00047 


r 0013 




00048 


r ooii 



MAxeONSjS »200#> 
MAXTEMPS »5#> 
MAXWITHSYMS»250#' 
MAX3YMS «800#* 
LlSTi.EN6TH *800#* 
MAXCXTFILES»20#» 
MAXFILES *20## 
MAXPNTRS *50#; 



XSIZE OF CONSTANT TABLEi 

XNUMBER OF EXTRA VARS JN EACH PROCEDURE, 
XMAX NUMBER OF SYMBOLS USEO BY WITH-STaTMS, 

SYMBOLS IN ONE EXPRESSION, 
VAR AND PAHAM LISTS, 
EXTERNAL FiLESi 
FILES DECLARED AT ONE TIME, 
UNDECLARED POINTERS* 



XMAX 


NUMBER 


OF 


XMAX 


LENGTH 


OF 


XMAX 


NUMBER 


OF 


XMAX 


NUMBER 


OP 


XMAX 


NUMBER 


OF 



X*** NAME TABLES *** 

ARRAY NAMETAB1,NAMETAB2»NAMETAB3[Q»MAXTABLES#QIMAXNAME5,)JX 
DEFINE NAMELENGTH sC41I6J*»% 
TYPE *C9tl03#,X 
IDCLASS *C 12* 33##X 
VAR *Q*>% 
CONST«i##X 
FUNC *Mt% 
PROC »3##X 
TyPES»4#,X 
INFO *C23*11)##X 
FORMAL «C24I13#>X 
FORWARDDEF *C2SU3#»X 
EXTERNAlFIlE«C26I1]#;X 
X 

X*** OISPLAY VECTOR *** 
ARRAY DlSPLAYtOlMAXLEVELJiX 
DEFINE RECTYPE «C9I103##X 
FIRSTWItMSYM s[19I1Q3#>X 
LASTWIT H SYM »C29»1Q3##X 
NUMPNTRSINWITH*C35I63##X 
BRACKETSINWITH*C36}13#,X 
NAMETAB «[46I73#;X 
X 

X*** TYPE TABLES *** 

ARRAY T Y PETABi,TYPETAB2,TYPETAB3COtMAxTYPES3;X 
DEFINE FORM *[3»43*»X 

NUMERIC «0**X 

SYMBOLIC*!*'* 
SUBTYPE »2##X 

MAINTYPE*[33»103#»X 
CHAR •$*>% 
FL0ATING«4#,X 
ALFA »5#,X 
SET «6#,X 

SETTYPE «C33U03#»X 
P0INTERS»7##X 

PQINTTYPE«E33U03#*X 
ARRAYS »6*,% 

INXTYPE *C33I103#»X 

ARRTYPE »C43IJ03#*X 
RECORD *9#,X 

RECTAB »C33«103#*X 
FILES «1Q##X 

FILETYPE«C33I103##X 
TEXTFILE*U##X 
SIZE «C15I123#*X 
STRUCT*[23I83#;X 



00049 


T 


0013 


00050 


T 


0013 


00051 


T 


0011 


00052 


T 


0013 


00053 


T 


0013 


00054 


T 


0013 


00055 


T 


0013 


00056 


T 


0013 


00057 


T 


0013 


00056 


T 


0013 


00059 


T 


oots 


00060 


T 


0013 


00061 


T 


0015 


00062 


T 


0015 


00063 


T 


0015 


00064 


T 


OOli 


00065 


T 


0015 


00066 


T 


0015 


00067 


T 


0015 


0006S 


T 


0015 


00069 


T 


0015 


00070 


T 


0015 


00071 


T 


0015 


00072 


T 


0015 


00073 


T 


0015 


00074 


T 


001$ 


00075 


T 


0017 


00076 


T 


0017 


00077 


T 


0017 


00078 


T 


OOlf 


000^9 


T 


0017 


00080 


T 


0017 


00081 


T 


0017 


00082 


T 


0017 


00083 


T 


0017 


00084 


T 


001* 


00085 


T 


0019 


00086 


T 


0019 


00087 


T 


0019 


00088 


T 


OOlf 


00089 


T 


0019 


00090 


T 


0019 


00091 


T 


0019 


00092 


T 


0019 


00093 


T 


0019 


00094 


T 


0019 


00095 


T 


0019 


00096 


T 


0019 


00097 


T 


0019 


00098 


T 


0019 


00099 


T 


0019 


00100 


T 


OOlf 


00101 


T 


OOlf 


00102 


T 


0019 


00103 


T 


0019 


00104 


T 


OOlf 


00105 


T 


0019 



INTEGER NUMTYPESJX 
X 

%*** PARAMITER TABLE *** 
ARRAY PARAMTAB[0»MAXPARAMS3iX 
DEFINE PARAMNAME »C91 103*^* 
PARAMKIND *Cl3l4J#>X 
PARAMLEVEL*C23I103#*X 
PARAMTYpg «C 33 1 103 ## at 
PARAMFILE «C34ll3#;X 
INTEGER NUMPARAMSJX 
X 

%*** CONSTANT TABLE *** 
ARRAY CQNSTTABtO'MAXCQNSTSjn 
INTEGER NUMCONSTSiX 
X 

X*** LABEL TABLE *** 
ARRAY LABTABCO|MAXLABSJ/X 
DEFINE LAB¥AL«C14U53##X 

LABDEF«[15IU#;X 
INTEGER NUMLABS'FIR^TLAB^X 
X 

X*** TABLES FOR J/0 AND ChARACTEH 
ARRAY CHC0!Q3# TEXTCOt 1 J* 5TRINGC 

POINTER CMARpNT*TEXTPNT#TEXTPNT 
ARRAY ICARDCO»93» lInECO'163* X|.I 

POINTER CARDPNT*HNEPNT#XLlNEPN 

INTEGER CHARCNT*ALG0LCNT#MARGIN 
ARRAY HEADTEXTCOUOJ, ERRLlNECdi 

INTEGE R LINecNT#PaGECNT#eRRINX> 
X 

X*** XREF eiLE AND TABLE *** 
FILE XREFFlLE DISK SERIAL C20I300 
ARRAY BlOCKTAB C 0«MAXTABLeS3* XR£F 

INTEGER NUMXREF^NUMBLOCKS; POI 
X 

X*** OTHER TABLES *** 

INUGER ARRAY VARlIST[0«lISTlENGT 

INTEGER VARInDEX#FIRSTVAR;x 
ARRAY SYmTABCOimAXSYhSj; 

INTEGER NUMSYMSJX 
ARRAY WlTHTABtO» M AXWITHSYMS3; 

INTEGER NWlTHSYMSiX 

intiger array symb0lc0i643; 
integer array symkindcoi6iji 

ARRAY PnTRTABi,PNTRTAB2'PNTRTAB3£ 

integer numpntrs;x 

ARRAY ExTFlLETA8{:0» M AXEXTFlLES]i 

INTEGER NUMEXTFILES|X 
ARRAY FlLETABto»MAXFlLES3; 

INTEGER NUMFHES;X 
BOQLEAN ARRAY ERRCOIH93; 
X 

X*** COMPILE TIME OPTIONS *** 
BOOLEAN LlSTOPTlON»RESWQRDOPTlQN* 
INTEGER CARDLENGTH;X 
X 

X*** INTRINSIC TYPES *** 



HANDLING *** 

o«in;x 
o#stringpnt;x 

NECOf 103# AuGOLCARDtOI9];X 
T#AL6QL p NT^X 

cnt;x 

X 



03 C2,3*150)JX 
LlNEtOlX63i X 
NT£R xrefpnt;x 



hj; % temporary list qf variables, 
x used by "expressions 

X USED BY "WjTHSTaT", 

X USED BY "INSYMbOL". 
X USED IN ERROR RECOVERY, 
OIMAXPNTRSJU USED FOR fQRwARq POINTERS 

X EXTERNAL FILES, 

X FILES IN USE. 

X RECORDS ERROR MESSAGES, 

CHECKQPTlON#OUMPOPTlON>xREFQPTiQN'X 



00 


106 T 


00 


107 T 


00 


108 T 


00 


109 T 


00 


110 T 


00 


111 T 


00. 


112 T 


001 


L 13 T 


00 


114 T 


00: 


115 T 


00 


116 T 


00] 


11/ T 


00 


lie t 


00: 


L IV T 


00] 


120 T 


001 


L21 T 


00] 


122 T 


00] 


123 T 


00] 


124 T 


00] 


125 T 


00 


L26 T 


00] 


[27 T 


00] 


129 T 


00] 


129 T 


00: 


130 T 


001 


131 T 


00] 


132 T 


00] 


L33 T 


00] 


^34 T 


00, 


135 T 


003 


136 T 


001 


L 37 T 


00] 


138 T 


00] 


139 T 


00] 


140 T 


00] 


141 T 


00; 


.42 T 


00] 


143 T 


003 


L44 T 


00] 


145 T 


00] 


L46 T 


001 


147 T 


00] 


148 T 


00] 


49 j 


00] 


150 T 


00] 


LSI T 


00] 


152 T 


00] 


153 T 


003 


54 T 


003 


155 T 


001 


56 T 


00] 


157 T 


00] 


>58 T 


00] 


l59 T 


001 


160 T 


00] 


L61 T 


00] 


l62 T 



0019 
001? 
0019 
0019 
0021 
0021 
0021 
0021 
0021 
0021 
0021 
0021 
0021 
0023 
0023 
0023 
0023 
0025 
0025 
0025 
0025 
002S 
0025 
0030 
0030 
003; 
0037 
0037 
0046 
0046 
0040 
0040 
0044 
004? 
0047 

0047 
0047 

0049 
0049 

0051 
0051 
0053 
0053 
0054 
0056 
0058 
0058 
0068 

0060 
0062 

0082 
0064 
0064 
0064 
0064 
0064 
0064 



INTEGER 
INPUT 
BOOLEAN 
X 

X*** TE 
INTEGER 
X 

X*** OT 
ALPHA U 
X 
INTEGER 



inttype>Realtype>alfatype,chartype#booltype*niltype>texttype#x 
file*qutputf1le# empty set/* 
inputdecl»qutputdecl;x 

mpqrary variables *** 

T1#T2>T3#T4»T5JX 



her variables? *** 
ser; 

CURLEVeL' 

TOPLEVEL* 
NUMBEGlNS, 

numcases* 

NUMREPs# 

NUMTEMpS» 

CyRFUNC* 

CURSY* 

CURTYPE* 

CURMODE' 

LASTREci 



X THE USER NUMBER FOUNO ON THE USER CARD. 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



CURRENT PROCEDURE LEVEL, 
TOP LEVEL IN DISPLAY VECTOR. 
NUMBER OF "BEGIN"S IN THE PROGRAM, 
NUMBER QF CASE-STATEMENTS JN PROGRAM. 
NUMBER OF REPEAT-STATEMENTS IN PROGRAM. 
NUMBER QF TEMPORARY VARIABLES IN USE. 
INDEX OF FUNCTION CURRENTLY COMPlLEDf 
LAST SYMBOL READ BY SCANNER. 
TYPE OF ENTITY LAST COMPILED, 
CURRENT EXPRESSION MODE. 
LAST RECORO TABLE DEFINED, 



LABEL E 

X 

Format 



NDOFINPUTU 

NOERRORS C"NU ERRORS DETECTED." )#X 



ERRBRS <I5#" ERRORS DETECTED"/ )'* 

ALIST C"S SET LIST SlNGLE")#X 

noalist <"* reset ljst")»x 

LASTi INE C"> TERMINATE! END OF PASCAL PROGRAM," J ,% 

termmess c"**** end-of-input, compilation terminated,");* 



START QF 



MONITOR 
X 

X*** SC 

define 



expqvr j ■Realoverflow; X 



3 IS 



anner symbols * 
identifier"!* 
cmarconst»5## 

ANdSY»9## 

MINUS*13#* 

GEQSY al 7#' 

INSY«?1#* 

RBRACKET*25#» 

DQ1*29#» 

BEGlN§Y*33## 

ELSESY«37#* 

UNTILSY*41#> 

T@SY»4§## 

TyPES Y s49*# 

SETSY»53#* 

F.UMCSY" $.71 > 

PACKE0SY«61#J 



** 



INTcONST s 2*> 

N0TSY*6*» 

DIVSY*1Q#> 

0RSY«14#» 

GTRSY*i6## 

LPAR»22*> 

D0UBLED0T«26## 

ARRQWs30*# 

ENDSY»34#, 

CASESY*38## 

WHILESY«42#, 

D0WNTQSY«46#* 

ARRAySY»50#, 

C0NSTSY*54## 

PR0CSY*58#> 



REALCONSTs3#* 

asterisk»7#* 
modsy*h## 

LSSSY«15## 

NE0SY*l9#f 

RPAR*23## 

COMMA*27#« 

C0LQN«31#, 

IFSY*35#, 

0FSY*39## 

D0SY*43*# 

q0T0SY*47## 

RECQRDSy«51#, 

VARSY»55#> 

KJTHSY*59#» 



ALFAC0NST*4##X 

5LASHp8##X 

PLUS*12#»* 

L£QSY»16*#X 

E0LSY»20##X 

LBRACKET»24##X 

SEMlC0L0Ns28*'X 

ASSIGNSY»32*'X 

THENSY»36##X 

REPEATSY»40##X 

FQRSY»44##X 

NJLSY»48#*X 

FILE S Y«52#,X 

LABELSY«56#*» 

PROGRAMSY»60*'» 



X 

DEFINE 
DEFINE 



INITIAL tO»# . MIDDLE"!* ^^ TI.RM J NAL«2# I X 

numbeR*o#* bitpattern«i*;x 



00163 
00164 
00165 
00166 
00167 
00168 
00169 

00170 
00171 

00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 

00180 
00181 

00182 
00183 
00164 
00185 
00186 
00187 

SEGMENT 
00188 
00189 
00190 
00191 
00192 
46 LONG 
00193 
00194 
00195 
00196 
00197 
00198 
00199 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00206 
00209 
00210 
00211 

00212 
00213 
00214 



0064 
0064 
0064 
0064 
0064 
0064 
0064 

0064 
0064 

0064 
0064 

0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
********* 

0064 
0064 
0064 
0064 
0064 
NEXT SEG 
0064 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 

0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 



m 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%x%%%%%%%%%%%%%% 
x * 

X % 

% jjj 

X PART 21 COMPILER UTILITY ROUTINES, % 

X X 

* X 

x % 

x X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 
X 

PROCEOURE INSYMBQIJ FQRWARDU 

prqceoure writealggl; FORWARD/* 

PROCEOURE NEWXREFC NAME 1#NAME 2# TABLE, OECL)JX 

VALUE NAME1* NAME2* TABLE* DECLJX 

REAL NAMEt# NAm£2;X 

INTEGER TABLEJX 

BOOLEAN DECL;X 

FQRWARD/X 

X 

DEFINE NDI6ITS(N)»X 

IF Hi 9 THEN 1 ELSEX 

IF NS99 THEN 2 ELSE 3 DIGITS#;X 

X 

DEFINE HEADINGaX 

begin comment *** prints 
pagecntl*pagecnt + ux 
Replace pointeR(headtext[*])+85 

WRlTECLINEStPAGE3);X 
WRITECLINESCDBLJMI' HEAD TEXT C*]);X 
LINECNTl«2lX 
OF HEA0ING#;X 



A HEADING ON TOP OF A NEW PAGE. ;X 

BY PAGECNT FOR NOlGJTS(P aGEC^T )i X 



X*** PRINTS a SOURCE CODE LINE, 



END 

X 

X 

DEFINE PRINTLINE' 
BEGINX 

REPLACE UNEPNT-8 B* CARDCNT FOR 5 dIGJTSJX 

IF LlNECNTitlNESPERPAGE THEN HEADINGS 
IF RESWQRDOPTlQN THENX 

BEGINX 

WRifiCLlNESCN03,n^XLlNEC*3);x 
WRlTE(LlNESCNU3»n#XLlNEC*J)n 

ENDjX 

WRITE(LINES#17*LINEC*3);X 

LINECNTI«HNECNT*i;X 
OF PRINTLINE*; X 



END 

X 

X 

DEFINE 

BEGINX 
IF 
IF 



NEW CARD* 



X*** READS A NEW SQURCE CODE CARD* 



LISTQPTlON THEN PRINTLINE^ 
ERRJNX>o THEN PRINTERRORSU 

REAO(CARDMO/ICARDC*3) CENDOF INPUT 3;X 

CARDPNT«*P0INTER(ICARDC*3);X 

REPLACE klNE-P NT. BY C*B0PjNt.. FOR IQ WQR D S, 

REPLACE XLINEPNT BY " " FOR 10 WQRDSJX 



FOR 6 WORQSiX 



00216 


T 0066 


0021? 


T 006g 


00218 


T 0066 


00219 


T 0069 


00220 


T 0066 


00221 


T 0066 


00222 


T 0066 


00223 


T 006* 


00224 ' 


r 0066 


00225 


T 0066 


00226 


T 0066 


00227 ' 


r 0066 


00228 ' 


r 0066 


00229 ' 


r 0069 


00230 ' 


r 0069 


00231 " 


r 0069 


00232 ' 


r 0069 


00233 ' 


r 0069 


00234 ' 


r 0069 


00235 " 


r 0069 


00236 " 


r 0069 


00237 " 


r 0069 


00238 1 


r 0069 


00239 1 


r 0069 


00240 1 


r 0069 


00241 1 


r 0069 


00242 1 


r 0069 


00243 1 


r 0069 


00244 1 


r 0069 


00245 1 


r 0069 


00246 1 


r 0069 


00247 1 


r 0069 


00248 1 


r 0069 


00249 1 


r 0069 


00250 1 


0069 


00251 1 


0069 


00252 1 


r 0069 


00253 1 


' 0069 


00254 1 


0069 


00255 1 


0069 


00256 1 


0069 


00257 1 


0069 


00258 1 


0069 


00259 1 


0069 


00260 1 


0069 


00261 1 


• 0069 


00262 1 


0069 


00263 1 


0069 


00264 1 


' 0069 


00265 T 


0069 


00266 1 


0069 


00267 T 


0069 


00268 T 


0069 


00269 T 


0069 


00270 7 


0069 


00271 T 


0069 


00272 T 


0069 



CHARCNTt»CAROLENGTH;X 
MRGINCNTI*85;X 

CARDCNTl«CAROCNT+i;X 

end#;x 

X 

X 

OEFINE 
BEGIN 
IF 



GENCT'N, START )'• 



X*** GENERATE A TEXT "T"* CONSISTING QF 
%*** « N « L ETTER5* STARTING AT "START"! 



ALGOLCNT<N THEN kRlTEALGQLjX 
TEXTC03i»T;X 

REPLACE ALgQLPNTIALGOIPNT BY TEXTPNTO+START FOR NJX 
ALGOLCNTl»AlGOtCNT-N;x 

end#;x 

X 
X 

DEFINE 
BEGJNX 
IF 



GENIDU,NUM*NOlG): 



X*** GENERATE AN XALGOL IDENTIFIER 



ALGOLCNtSNDIG THEN WRlTEALGOUX 

chco3i«l;x 

REPLACE AlGOLPNTJAlGOlPnT BY CHARPNT FOR 

ALGOLCNTI-AIGOLCNT-NDIG-IU 
ENDiiX 
X 

X 



1, NUM FQR NDIG DIGITSiX 



NABStNSlZE'X 
GENINT(N)«X 



INTEGER 

X 

DEFINE 
BEGIN* 

NABSIsABS(ty); IF 
NSIZEJ»IF NABSS 
IF N ABSS 
IF NABSS 



N<0 



THEN GENC"""#W);X 
9 THEN i EUSEX 
999 THEN 3 ELSEX 
99999 THEN 5 ELSEX 
IF NABSS99999999 THEN 8 ELSE 12;X 
IF ALGOLCNt<NsUE THEN wRI TEALGQL* X 
IF NSIZE-12 THENX 
REPLACE ALGOL.PNTULGOLPNT By (NABS DlV 1OOO0O0) FOR 6 DIGITS, X 

ENTIEH(NABS MOO 1000000) FOR 6 OIGITS ELSEX 
REPLACE ALGOUPNTIALGOLPNT BY NABS FqR nSIZE DIGITSJX 

algolcnti*algolcnt-nsize;x 
end cf g£nint#;x 

X 
X 

PROCEDURE SENREAKXHX 
VALUE XI RIAL Xi% 
BEGINX 

REAL ABSX;X 

INTEGER P0WER#V1*V2;X 
X 

IF X,C46IS3»0 THENX 
BEGINX 

IF ALG0LCNt<9 THEN WRITEALGQLJX 

TEXTCOll'XjS 

REPLACI ALGQLPNTIALGOLPNT BY «"•«, TeXTPNT FOR 7, """fx 

ALG0LCNTI-ALG0LCNT-9;X 
END ElSEX 



START OF 



00273 
00274 

00275 
00276 
00277 
00278 
00279 

00280 
00281 
00282 

00283 
00284 
00285 
00286 
00287 
00288 
00289 
00290 
00291 
00292 

00293 
00294 

00295 
00296 
00297 
00298 
00299 
00300 
00301 
00302 
00303 
00304 

00305 
00306 

00307 
00308 
00309 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00318 
SEGMENT 
00319 
00320 
00321 
00322 
00323 
00324 
00325 

00326 
00327 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 
T 
T 
T 

T 
** 

T 

T 
T 
T 

T 

T 
T 

T 

T 



0069 
0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 

0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 

0069 
0069 
0069 
0069 
0069 
0069 
0069 

0069 
0069 
0069 
0069 
0069 
******** 

0000 
0000 
0000 
000 1 
0001 
0003 
0004 
0013 
0015 



00000322 



BEGIN* 

IF ALG0LCNT<22 THEN WRlTEALGQL/% 
IF X<0 THEN GEN( M (-' , *2*6);X 

ABSx(sABS(X)J% 

IF ABSX>0 THEN* 
BEGINX 

WHILE ABSX>1?7 DQ BEGIN AflSX » «ABSX/ 10; PQWERl*PQWER+l ENDi* 

while absx<i?6 do begin absxi*absx*io; power»*pqwer-i end;x 

Vlt«ENTlER(ABSX);X 

V2«sENTlER((AeSX-Vl)x 1000000);% 

REPLACE ALGOLPNTIALGOUPNT BY VI FQR 7 DIGITS* "«"*X 

V2 FOR 6 DIGITS* "*";% 
AUG0LCNTj»ALG0LCNT-l5;X 
IF POWER<0 THEN GEN<"-«, 1* 7 )}% 

PQWERl#ABS(POWER)iX 

REPLACE AL G OLPNT»ALGQLPNT By POWER FOR 2 DIGITS;* 
A|.G0LCNT|«ALG0LCNT-2;X 
END ELSE GENC»0"*l*7);X 



if x<0 then gen( m )"*1*7);x 
end;x 
end of genreal;x 



00328 T 
0032V t 
00330 T 



00331 
00332 
00333 
00334 



00336 
00337 

0033B 
00339 
00340 
00341 



00335 T 



00342 T 

00343 T 

00344 T 

00345 T 



00346 T 

00347 T 

00348 T 
4 IS 105 LONG* 



0015 
001S 

ooir 

00000330 
0027 
0028 
0029 
0029 

00000334 
0037 

00000335 
0043 
0044 

0047 
0055 
0061 
0062 

00000341 
0073 
0074 

0078 
0079 

00000339 

00000345 
0091 

00000346 
0101 

00000326 
0101 

00000317 
NEXT SEG I 



X 

X 

INTEGER TYPEIND£X;X 

X 

DEF 
BEG 



END 
X 

X 
PRO 

BEG 



END 



INE NEWTYPEsX 
INX 

IF NUMTYPEsJMAXTYPES THEN BEGIN ERRpR (45) f NUMTYPES l*MAXTYPES*20 END* 

TYPE INDEX I *NUMTY PES I*nUmTYPe3 + 1;X 

*)% 

CEOURE WRITEALGOL* X*** *RIT£S A COMPLETED XaLGQL CA«0 TO 
IN X*** THE FlLEt 

REPLACE POjNTER(AUoOLCARD[9]) BY CARDCNT FOR 8 DiqiTS;X 

WRITE (PASC ALGOL* 10 *AUGQt.CARDC* 3 );x 

IF DUMPOPTION THEN WRI TEC Li NES* 10*A|„G0LCARDC * 3 )i X 

AL60LPNTI»POlNTER(AtGOL,CARDC*3); A^GOlCNT J*7i;X 

replace algolpnt by " " for 9 wdrds*x 
of writealgol;x 



00349 


T 


0069 


00350 


T 


0069 


00351 


T 


0069 


00352 


T 


0069 


00353 


T 


0069 


00354 


T 


0069 


00355 


T 


006$ 


00356 


T 


0069 


00357 


T 


006* 


00358 


T 


0069 


00359 


T 


0069 


00360 


T 


0064 


00361 


T 


0069 


00362 


T 


0069 


00363 


T 


0075 


00364 


T 


0079 


00365 


T 


0084 


00366 


T 


0086 


00367 


T 


0090 

00000361 



X 

% 

DEFINE MARGIN<LETTER#NUM)«X 

begin comment *** places information In the margin* t% 

IF MAR«INCNTS118 THENX 
BEGIN TEXTt03l»LETTER;X 

REPLACE UNEPNT + MARGlNCNT BY TEXTPNT+5 FOR 2#X 

NUM FOR NDIGIT3(NUM)U 
MARGINCNTI*MARGINCNT+6JX 
END;X 
END OF MARGIN*;* 
X 

X 

PROCEDURE SKIPCSYMBGIH X*** SKIP SYMBOLS TO RECOVER FROM ERHQR 

VALUE SYMBOL; INTEGER SYMBOL; **** CONDITION, 

BEGIN* 

WHILE CURSY^SYMBOL ANq SYMK INqCCURSY J«M IDDLE DO* 

if cursy»recordsy then* 
begin do begin insymbqljx 

SKIPC99);X 
8ND UNTIL CURSY^SEMICOLON AND CURSYXCASESY; X 

END ELSE INSYMBOL;* 
END OF SKIP/X 



00368 
00369 

00370 
00371 

00372 
00373 
00374 
0037b 
00376 
00377 
00378 
00379 
00380 
00381 
00382 

00383 
00384 

0038b 
00386 
00387 
00388 



T 
T 
T 
T 

T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 



0091 
0091 
0091 
0091 

0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 
0091 

0091 
0091 

0093 
0094 
0095 
0096 



00389 T 0098 

i 

00390 T 0100 



0000038$ 
} 

00000386 
) 

00000383 



PROCEDURE ERROR(ERRNUM);* 
VALUE ERRNUMl INTEGER ERRNUM;* 
BEtlNCOHMtNT *** ARRANGE ERROR INDICATOR* ** 

numerrs**numerr5u;* 
errcerrnum]i*true;* 

errinx«bmax<errinx#cardlength-2-charcnt);* 
if errinxs115 then* 

begin replace pqinteRcerRlinecuherRinx by "x»»x 
errnum for ndigits<errnum ) ; x 

ERRlNXIsERRiNX+CIF ERRNUMS 9 THEN 2 ELSEX 

IF ERRNUMS99 THEN 3 ELSE 4);x 
END END QF ERRO.RIX 



00391 


T 


0100 


00392 


T 


0100 


00393 


T 


0100 


00394 


T 


0100 


00395 


T 


0108 


00396 


T 


0100 


00397 


T 


0102 


00398 


T 


0103 


00399 


T 


0107 


00400 


T 


0108 


00401 


T 


0116 


00402 


T 


0123 


00403 


T 


0126 


00404 


T 


0129 

00000400 
00000395 



X 

X 

procedure p«interrqrs;x 

BEGIN COMMENT"*"** PrINT ErrOr INDICATORS. ;X 
IF NOT LISTQPTIQN THEN PRINTLINE^ 



00405 
00406 
00407 
00406 

00409 



0129 

0129 
0129 
0129 
0129 



00000409 
00000409 



«RITEU.INES*.17*eRRLlNEC*J)n 
UINECNT«»UINECNT*1U 

REPtACE POlNTER(ERRUINEtU) BY "'" FOR 16 WQRDSJX 
.ERR.i.NXI»QJX 
END OF PRINTERRQRSJX 



00410 

00411 
00412 
00413 
00414 



0174 

0178 
0179 

0185 

0186 



00000409 



00000408 



X 
X 

DEFINE HASH(N) » <N) f C35»36] MOO MAxNAMES*JX 

X 

INTEGER THISLEVEL#THISTAB,THISInOEX>X 

ALPHA ... TH.IS1D>.TNAMEI* 

BOOLEAN FOUND;* 

X 

DEFINE SEARCHT A BCTA&)« X*** SEARCH NAME TABLE "TAB" FQr THE 

begin x*** identifier just reaot 

Thisinoexi*hashccurnamei>>* 
tmahe.if.name.ta9h tab, this index 3 u 

WHILE (IF TNAME«CURNAMEl THEN NAMETAB2[TAB,ThISiNDEX3XCuRNAME2X 

else tname^o) dox 
beginx 

THISlNDEX**IF THISInDEXpO THEN MAXNAMES ELSE THJSIND£X»1;X 
TNAMEl«NAMETABltTAB*THlSlNDEX3;x 

END IX 

F0UNDI»TNAME^0;x 
IF XREFOPTlON THENX 

IF FOUND. THEN NEwxREFCCURNAMEl,CURNAME2, TAB, FALSER % 
END OF SEARCHTaB#JX 
X 

DEFINE SEARCH* X*** $EARCH ALL TABLES CURRENTLY IN USE, 

BEGINX 

THISLEVELl«TQPLEVEL + nX 

do beginx 
thislevel«*thjslevel*ux 
thista b i*if thisleVelscorlevel TH£N THISLeVeLX 

ELSE DISPLAYCTHISLEyELJtNAMETABJX 

SEARCHTAB(THISTAB);X 
END UNTIL FOUND OR THISLEVEL«QiX 
THl§Ipt»NAMETAB 3 [THISTAB#THlSlNDEX3;X 

END OF SEARCH #;X 
X 

X 

DEFINE NEWNAME(NAMEi»NAME2, TAB) »X 

BEGIN X*** ENTER A NEW NAME INTO THE NAME TABLE "TAb". 

THISINDEx!»HASH<NAME1)JX 

tnamei«nametabictAb,thisinoex3;x 

WHIlECIF TNAME«NAME1 THEN NAMETA82CTa8#THISInDEX3^nAME2x 

ELSE TNAMEXO) DOX 
BEGINX 

THISINQEXI-IF THISINDEX*0 THEN MAXNAMES ELSE THI SINOEX-I J X 

TNAM£I«NAMET ABIC TJJaTHIS INDEX 3 ;x 

end;x 



00415 


T 0186 


00416 


T 0186 


00417 


T 0186 


00418 ' 


r 0186 


0041V ' 


r 0186 


00420 


T 0186 


00421 


r 0186 


00422 ' 


r 0186 


00423 • 


F 0186 


00424 ' 


r 0186 


00425 ' 


r 0186 


00426 " 


r 0186 


00427 1 


r 0186 


00428 ■ 


r 0186 


0042V ' 


r 0186 


00430 1 


r 0186 


00*31 i 


r 0186 


00432 1 


r Piee 


00433 ' 


r 0186 


00434 1 


r 0186 


00435 1 


r 0186 


00436 1 


r 0186 


00437 1 


r 0186 


00438 1 


r 0186 


00439 1 


r 0186 


00440 1 


r 0186 


00441 1 


r 0186 


00442 1 


r 0186 


00443 1 


r 0186 


00444 1 


' 0186 


00445 1 


f 0186 


00446 1 


' 01B6 


00447 1 


' 0186 


00446 1 


r 0186 


00449 1 


r 0186 


00450 1 


r 0J88 


00451 1 


r 0186 


00452 1 


' 0186 


00453 1 


' 0186 


00454 1 


r 0186 


00455 T 


0186 


00456 1 


0186 


00457 1 


' 0186 


0045a 1 


0186 


00459 7 


0186 


00460 1 


' 0181 



fl 



IF TNAME/O THEN ERR0R(2);X 
N AMET AB1 [ TAB* THIS INDEX 3 1*NAME1**X 
NAMETA82[TAB#THISINDEX]I«NAME2JX 
IF XREFOPTION THEN NEWXREFC NAME1* NAmE2* T AB* TRUE ) ** 

END OF NEWNAME *i% 
X 

X 

PROOEOURE INITIALIZE^ X*** IN 

BEGIN X****** 

INTEGER T1,T3;X 



ITIAUUATION *** 
**************** 



X 

X 



ALPHA A i X 

FILL S¥MKlNDt*3 WITH 28C MIDDLE )* TERmI NAl* «C MIDDLE )' INIT I At* TERMINAL' 



INITIaL*MIDDLE*TERMINAL*INITIAL*Mi0DLE>IN 

middle*initial»2(mi0dle)#initial»mid0le*i 
7cinitial)»middle;x 



ITIAL*TERMINAL*IMTIAL*X 
NITIAL*MMIDDLE)*X 



FILL STMBOtC*] WITH 10(0 )* 0* ARRQW*0* COLON* GTRSY* GEOSY* PLUS* 9 (0 )*X 



DoT*LBRACKET*AnDSY*LPAR*LSSSY*ARRqW* 0*9(0 
RPAR,sEMICOLON»LEQSY#0» SLASH, a (o)* COMMA* o 

o*dqubledot;x 



)*0»a5terisk#minus#x 
*neqsy*eolst*Rbracket»x 



START OF 
START OF 

6 IS 
START OF 

7 IS 



linepnt »*pqinterclineci 
xlinepnt * »po inter cxlinec 

REPLACE LlNEPNT"8 BY " 
REPLACl XLINEPNT-8 BY " 
REPLACE POINTERCERRLINEC 

alg0lpnt»«p0inter(alg0lc 
replaci algolpnt by " "" 

CHARPNT*iP0lNTEH<CHC*3)+ 
TEXTPNT»»PO INTER (TEXT (*] 

REPLACE TEXTPNT BY » « F 
STRINGPNTUP0INTER(STRIN 
REPLACE POINTERCHEADTEXT 
REPLACI POINTERCHEADTEXT 
TEXT[0]l»TlME(5)IX 
REPLACE POINTERCHEADTEXT 

TEXTPNT+i FOR 2* "/"* 
Tlti»TlME(n/3600;x 
REPLACE POjNTER(HEADTEXT 

ENTIERCTl MOD 60) FOR 
HEADINIJX 



))U 

13)JX 

m> «* « « FOR 16 WOROS;» 

" FOR 11 WORDSJX 
*]) BY ***** "* 
ARD[*3>* ALGOLCNTl 
FOR 9 WQRDS;X 
7;x 

) + l* T£XTPNTOI*TEXTPNT"tiX 

OR I5;x 

Gt*3)iX 

C*3) BY " " FOR 10 

C*3) BY "PASCALC"* 



" " FOR 16 wqrds;x 

■7i;x 



WORDS* "PAGE "*X 
EDITION* ")/B-5700"*X 



C*3)*45 BY TEXTPNT+3 FDR 2* "/"*X 
TEXTPNT+5 FOR 2*X 



[*3)+57 BY (Tl OjV 

2 oigits;x 



60) FOR 2 DjGiTS* "1"*X 



X*** INITIALIZE INTRINSIC TYPES* CONSTANTS ETC, *** 

INTTYPE«"T3»aU X*** "INTEGER" *** 

Tll«NUMERlCi Tl t SIZEI«l* Tl .STRUCT I »0*X 

TYPETABlE13l«Tl* TYPETAB2C 13 »*"MAXINTi TYPETAB3C 1 ) I«MAXINT; X 
NEWnAMEC"7inTEGE"»"R**0)J T3 f IDCLASS I .TYPES; X 



NAMETA83C0*THISINDEX3|«T3;X 



00461 
00462 

00463 
00464 

00469 
00466 
00467 
00466 
00469 
00470 

SEGMENT 
00471 
00472 

SEGMENT 
00473 
00474 

00475 
62 LONG 

00476 
00477 

SEGMENT 
00478 

00*79 
00480 
65 LONG 
00481 
00482 
00483 
00464 
00485 
00486 
00487 
00488 
00489 
00490 
00491 
00492 
00493 
004 94 

00495 
00496 
00497 
00498 
00499 
00500 
00501 

00502 
00503 
00504 
00505 
00506 
00507 
00508 



00509 T 



0186 
0186 

0186 
0186 

0186 
0186 
0186 
0181 
0186 
0186 
********* 5 

0000 
0000 
********* 6 

0001 
0001 
0001 
NEXT SEG 5 
OOOl 
0001 
********* 7 
000| 

0003 
0003 
NEXT SEG 5 
0003 
0003 
0006 
0009 
0018 
0024 
0033 
0036 
0048 
0043 

0049 
0053 
0055 
0064 

0075 
0076 
0087 
0098 
OlOQ 

0111 
0118 

00000501 

0136 
0136 

013| 

0136 

0138 

0142 

0146 

00000508 
0000050§ 

0177 



REALTYPE'*T3»«2; **** "REAL" *** 

T1,FORM»»FuOATING; TyPETABU2 3I*TUX 
NEWNAME< H «OOREAL M »0#0); T 3 , IDCLASS t *TYPESJ X 



NAMETAB3C0,THISINDEX3I«T3;* 

AIFATYPEI»T3»«3# 

Tl.FORMt-ALFA; TYPETABiC33l*Ti;X 

NEWNAME( W 400ALFA",0»0); ?3, IDCLASS t *TYPESJ X 



X*** "ALFA" *** 



NAMETAB3CO,THiSlNDEX]l»T3;X 

B00|.TYPE«»T3»*4; X*** "BOOLEAN" *** 

Ti,FORMt»SYMBQLIC; TYPETAB it 43 l»T \i TYPETAB 3C 43 »« lU 
NEWnAmE< h 7bQ01.EA w »"n ,, »O); T3,IOCtASSl«TYPES;X 



NAMETAB3CO,tHISINDEX3I*t3JX 

CHARTYPE« B T3«*5i X*** "CHAR" *** 

Tl.FORMJ-CHAR; TyPETaBUSJI-TW T Y PETAB3C53«*63;x 
NEWNAMt<"400CHAR",Q,0); T3 .IDCLASS » "TYPES J X 



NAMETAB3C0,THISIN0EX3I»T3;X 

T3|»BOQLTYPEi T3. IDCLASS |*CQN5T' X*** "FALSE" *** 

NeWNaMEC h 50FAL§E h #Q>Q)j NAMETAB3LO,THlSlNOEX3«»T3iX 



T3.INFOU1J X*** "TRUE" *** 

NEWNAME("400TRUE"»0>Q)> NAMETAB3 [0* THI SINDEX 3 *«T3* * 



NUMJYPISI-5;* 
MLTYPI|««1J 

EMPTYSET«*-2; 
NEWNAME( M 6 M AXINT",0,0); 



t3I»INtTYPE* 



X*** TYPE OF "NIL" *** 
X*** TYPE OF O *** 



X*** "MAxINt" *** 



T3,IDCLASS|«C0NST; T3 t INF0J'«l024;x 
N AMET AB3 C 0* THIS INDEX 3 »sT3iX 

numconstsuu consttab 1 1 3 i*maxint; X 

T3t»0J T3,I0CLASS**PR0C; X*** PROCEDURES *** 

FOR A** H 3000GET W ' "3Q00NeW"> "400Pac k "» "400PaGE w > " 30QQPUT"*X 

"400READ", "6REA0LN", "50R£SET"# "6uNPACK", "50*RItE" OOX 
BEGIN* 

NEWNAME(A,Q,Q); NAHETAB3C0, THIS INDEX J ««T3U 



end;x 

newname("7dispos"»"E%0); nametab3cq # thisindex3 i*t3;% 

newname("7rewrlt">"e"#0); nametab3 [0# this index 3 » «t 3>x 



00510 T 
005H T 
00512 T 



00513 T 

00514 T 

00515 T 

00516 T 



00517 T 

00518 T 

00519 T 

00520 T 



00521 T 

00522 T 

00523 T 

00524 T 



00525 T 

00526 T 

00527 T 



00528 T 

00529 T 



00530 T 

00531 T 

00532 T 

00533 T 



00534 
00535 
00536 
00537 
00538 
00539 
00540 
00541 
00542 



00543 T 

00544 T 



0179 
0180 
0183 



0210 
0212 
0213 
0216 



00000512 
00000511 



00000516 
00000516 



0243 
0245 
0246 

0250 



00000520 
00000520 



027f 
0279 
0280 

0284 



0311 
0313 
0315 



00000524 
00000524 



0342 
0344 



00000527 
00000527 



0371 
0372 

0373 
037^ 



00000529 
00000529 



0400 
0403 
O4O5 

0407 
0407 
0410 
0420 
0430 
0436 



00000533 
00000533 



0468 
0468 



00545 T 0495 



00000542 
00000542 

) 
00000541 

I 
0000054* 

00000544 

00000545 
00000545 



NEWNAMEC"7WRIT£1 ,, #"N"#0 )} N AMETAB3 [Q» THIS INDEX J « *T 3;X 



T3,lDCLASSl*FUNCJ X*** FUNCTIONS *** 

FOR A»s"3000ABS% "6ARCTAN", "3000CHR"* "300QCQS", "300QEQF%X 

"400EQLN"* "300QEXP"* "20000L.N", "3000QDD"* *400PRED"»X 

M 400SUCC"» "50RQUND"' "3G00SJN"* "3000SQR"* M 400SflRT"#X 

"5qtrunc", • , 6c0ncat m » "4q0time"* "400date"* "6lqtime w *x 

"400user"' "30o00rd"x 
do beginx 

newnamecA'Q^oj; n ametab3 c o* this index ji*t 3; x 



end;x 

NEW N AMEC ,, 7eIAPSE","D%0); nAmET AB3 CO# THISI NOEXJ 1*7 3;X 
NEWNAMEC"7 W £EKDA%"Y%Q)J NAMETAB3[0,THISINDEX3»*T3;X 



TEXTTYPE»*T3* s NUMTYPESl»NUMTYp£S+i; X*** "TEXT* *** 

tl l« textfilej tl. struct 1* u typetab1ctexttype] |» tu x 

T3,idclass i* types; x 

newnamec"400text%0,0); nametab3c0, thi slndex j »»t3i x 



TatafEXTtYpE; T3 f lOCtASSl«vAR; X*** "INPUT" *** 

T3,EXTERNALFILE«»HX 

NEWNAME( w 50lNPUT M ^0#0)i INPUTF ILE l«THISINDEXJX 



00546 T 0522 



NAM£TAB3C0,THISINDEX3?*T3;X 
NEWNAMEC W 60UTPUT M *0»0); 



%*** "OUTPUT 1 ' *** 



NAMETAB3C0»THlSlNDEX]«aT3; OUTPUT FILE I «THIS INDEX i % 
END OF INTIALIZEJX 



00547 

00546 
00549 

00550 
00551 
00552 
00553 
00554 
00555 



00556 T 

00557 T 



0055V 
00560 
00561 
00562 
00563 



00564 T 

00565 T 

00566 T 



0056f T 
00568 T 



00569 T 

00570 T 



0000054| 
00000546 



0549 
0549 
0551 
0561 
057J 

0581 
0591 

0594 
0595 



0643 
0643 



00558 t 0670 



00000555 
00000555 

00000554 

00000557 
00000557 

i 

00000558 
00000558 



0697 
069? 
0699 
0703 
0705 



0732 
0734 
0736 



00000563 
00000563 



00000566 
00000566 



0762 
0764 



0789 
0792 



00000568 
00000568 



5 IS 797 LONG* NEXT 



00000469 
SE6 i 



X 

X 
X 

X*** 
X*** 
X 
DEFI 

REAL 
INTE 

X 



XREF ROUTINES *** 

******************* 

NE XR£FCARd*U*»173##X 
XREFBL0CK*C26tl0]#;x 
A0,B0#Al#Bl*LASTA0#LASTAi;X 
GER NL,LASTBL0CK,A2,AX;x 
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0186 


00572 


T 


0186 


00573 


T 


0186 


00574 


T 


0186 


00575 


T 


0186 


00576 


T 


0186 


00577 


T 


0166 


00576 


T 


0186 


00579 


T 


0186 


00580 


T 


0186 


00581 


T 


0186 



PROCEDURE nEWXrEF(NAME1#NAME2/TA8U#QECU;X 

value namei#name2#table#decljx 
real name1#name2jx 
integer tablejx 

BOOLEAN OECtiX 
BEGINS 

nl«*namei,namelength;x 

IF NL<7 THEN NAMEll«Q&NAMEl[41!4H6)iNAMEl[35l6xNL-H6XNL3X 
ELSE NAME2»»0*NAME2C35«6xCNL"6)-ll6x{NL-6)J/X 

AXIsCARDCNT; AX,XREFBlQCKI*B|„QCKTABCTABlE3>X 

IF OECL TH£N AXI»AX«iQOOOOOOQQOQJX 

WRITECXREFFILE'*»NAME1#NAME2*AX);X 

END OF NEWXREF;* 



00582 T 


0166 


00583 T 


0186 


00584 T 


0186 


00585 T 


0186 


00586 T 


0186 


0058? T 


0186 


00588 T 


0186 


00589 T 


0188 


00590 T 


0195 


00591 T 


0202 


00592 T 


0204 


00593 T 


0206 


00594 J 


0218 




00000587 



PROCEDURE XREFmAXCAJU 

ARRAY A[0m 

BEGINX 

Ac03.*"AZZZZZZ M * A£l3»*"ZZZZZZ"; 

END OF XREfMAXjX 



A C23 189999999999/% 



00595 T 


0218 


00596 T 


0218 


00597 T 


0216 


00598 T 


0218 


00599 T 


0218 


00600 T 


0222 




00000598 



X 

boolea 

ARRAY 
BEGINX 
AO 
XR 
IF 
IF 
IP 
AC 
END OF 



N PROCEDURE XREFCOMPARE(A-B>;x 
A»BC03;X 

l*ACOJj B0»»B[03; Alt«A[lli BH*BtU#* 
EFCOMPARE* B % 
A0,t35l363^80 t [35»36l Th£ N A ° • £ 35 I 363 <B0 , [ 35 « 36 ) 

Aim then ai<bi elsex 

AO^BO THEN AO ,NAMELENGtH<Bo .NAMElENGTH ELSEX 
2] UEQ BC2];x 
XREFC0MPARE1X 



E LS E X 



00601 


T 


0226 


00602 


t 


0226 


00603 


t 


0226 


00604 


t 


0226 


00605 


t 


0226 


00606 


t 


0226 


00607 


t 


0230 


00608 


t 


0238 


00609 


T 


0234 


00610 


T 


0237 


00611 


T 


0240 


00612 


T 


0242 

00000605 



X 
X 

PROCEDURE PRlNTXREF(FlNl5*A);X 

value finis; boolean finisjx 

ARRAY At03;X 
BEGINX 

IF FINIS ThENX 

BEGINX 

WRITE(LlNES,l7tXREFLINEt*jm 

CLOSE f LINES .US. 
CLOSE(XREFFILE)U 
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00614 
00615 


T 

T 
T 


0245 

0245 
0245 


00616 
00617 


T 
T 


0245 
0245 


00618 
00619 


T 

T 


0245 
0249 


00620 
00621 
00622 
00623 


T 
T 
T 
T 


0245 
0243 
025t) 
0251 



END* 

ELSE* 

BEGINS 

AOt*ACO]J All«ACl)' A2I«A(2];% 

IF AObLASTAO AND AI.IASTAI AND A2,XREFBL0CK«LA5TBl.0CK THEN* 
BEGINX 

IF NUMXREF»15 THEN* 
BEGINX 

WRITE(UNES,17#XREFLINEC*3); tINECNTI»LINECNT*li* 
IF UNECNTHINE5PERPA6E THEN HEADING;* 

XREFPNT««POINTER(xREFLlNEC*3); NUMXREFl»Q;x 

replace xrefpnt by " m for 17 words* xrefpnt |»xrefpnt+24;x 
end;* 

REPLACE XREFPN.T Br a2,XREF?ARD FOR 5 DIGITS;* 
XREFPNT I "XREFPNT* 7; NUMXREF IbNuMXREF + I** 
END ELSE* 

IF A2<0 THEN* 

BEGINX 

A21«A2+1000000000Q0;X 

WRITE(LINES#17#XREF|.INEC*3); 
IF LlNECNT>LlNESPERPAGE THEN 



00624 T 0253 



00000620 



LlNECNTI*tlNECNT+i;* 

heading;* 



XREFPNT I B P0INTER(XREFLINEC* 3); NuMXREF|*o>* 
REPLACE XREFPNT BY " " FOR 17 WORDS;* 
TEXTCQ3I«A9iC15I36 3; LASTAQIfAQ/X 

replace xrefpnt by textpnt+i for ao.namelength;* 

TExTC03I»LA3TAII«AH* 

IF A0,NAMELENGTH>6 THEN* 

REPLACE XREFPnT+6 BY TEXTPNT*! FOR AO » NAMELENGTH-6; * 

replace xrefpntm7 by a2ixrefcard for 5 digits;* 
xrefpnt »*xrefpnT+24; lastblqck i»a2 ,xrefblock;* 

end;* 

end;* 
end of printxref;x 



00625 
00626 
00627 
00626 
00629 
00630 
00631 
00632 
00633 



00645 
00646 
00647 
00648 
00649 
00650 
00651 
00652 
00653 
00654 



00634 T 

00635 T 

00636 T 

00637 T 

00638 T 

00639 T 

00640 T 

00641 T 

00642 T 

00643 T 

00644 T 



00655 T 

00656 T 



0253 
0253 
0254 
0257 
0260 
0260 
0261 
0262 

0267 

l 

0289 
0292 

0298 
I 

0298 

0303 

0307 

( 

0307 
0308 
030$ 
0310 
0315 
( 
Q33 8 

0340 

0344 
034* 

0352 

0353 
0355 
0363 
036f 

0373 

( 

0373 

( 

0373 



00000633 



00000631 



00000629 



00000644 



00000641 
I 

00000626 
I 

00000618 



X 

X 
X 

INTEGER TT1#TT2#F1#F2#LT>RT;X 

X 

DEFINE CHECKTYpE5<LEFTTYPE#RlGHTTYPE)»X 

BEGINX 

IF LEFTTYP£>0 AND RIGHTTYPE>0 THENX 

IF LEFTTYPEXRIGHTTYPE THENX 

BEGINX 

lti*lefttypej rti«righttype;x 

tt1i*typetab1[lt3; tt2l*typetabhrtm 



00657 
00658 
00659 
00660 
00661 
00662 
00663 
00664 
00665 
00666 
00667 

00668 



0375 
0375 
0375 
037f 

0375 
0375 
0375 
0375 
0375 

0375 
0375 

0375 



Fl I*TT1 ,FORm; F2l=TT2tF0RM;X 

IF Lf/REALTYPE OR F2XNUMERJC THEN* 

IF(F1^SET AND LT'EMpTYSET )0rCF2XSeT AND RT*EMpTY SET jTHENX 

IFCF1*P0INTERS AND LTXNILTYPE )QR(F2*P0INTERS AND RTXNILTYPE ) THENX 

BEGIN* 

IF F1*SET AND F2-SET THENX 
BEGIN* 

RTlsTT2,SETTYPE;X 

TT2I*TYPETAB1CRT3)X 

F2»"TT2,F0RM;X 



LTI*TT1,SETTYPEJ 
TTlUTYPETABlCLTJ; 

FH-TTl,FORMi 

eno;* 

if f1«pqinters and f2*pqinters 

BEGINX 

LT»"TTl,POINTTYPEJ 
TT1*»TYPETABIUTJJ 
Ft»*TTl,FORM; 

enb;x 

while fl'subtype dox 

BEGIN | p T | *TT1 # mAInTYPE; 
WHILE F2»SUBTYPE DDX 
BEGIN rTI*TT2,MAINTYpe; 

IF LT>o AND RT>0 THENX 
IF LT*RT THENX 



THEN* 



RTt»TT2,P0lNTTYPE;* 
TT2l-TYPETABURT3n 
F2I»TT2,fOR m '* 



TU»*TYPETABHL"nj 

tt2»*typetaburt); 



fii*tti,fqrm end;* 

F2I«TT2,F0RM ENDjX 



IF FUNUMERIC 
IF FfCHAR QR 
ENDJX 

ENDJX 

OF CHECKTYPES*;* 



OR F2*NUMERIC THEN* 
F2XCHAR THEN ERR0RC17);* 



filename;* 
lpaRfound;* 



checks the 
if it is a 



first 
file* 



END 

X 

X 

integer 
boolean 
x 

DEFjNE FiLEPARAM(DEFAuLTPlLE)«X*** 
BEGIN **** 

insymbol' filenameiscuRtype»»q;x 

LPARFOUNO»aCURSY*l.PAR;X 
IF LPARFOUND THEN* 
BEGIN* 

insymbol;* 

I F CURSY«I0ENTIFIER THENX 
BEGINX 

search;* 

IF FOUND THENX 
BEGINX 

if thisio.idclasssvar then* 

BEGIN* 

curtypei«thisid,type;x 

IF TYPETABltCuRTYPEJtFORMiFILES THEN* 
BEGIN* 

FlLENAME»*100QxTHl5LEVEL+THISINDEx;X 

insymbol** 
end. end end end!* 
if symkindccursy3«terminal then err0ru6);* 

END;* 

IF FILENAMES THEN FILENAME **DEFAULTFILE; * 

IF (FILENAME«INPUTFILE AND NOT INPUTDECL) OR* 



PARAMETER TO SEE 



00669 
00670 
00671 
00672 

00673 
00674 
00675 
00676 
00677 
00678 
00679 
00680 
00681 
00682 
00683 
00684 
00685 
00686 
00687 

00688 
00689 

00690 
00691 
00692 
00693 
00694 

00695 
00696 

00697 
00698 
00699 
00700 

00701 
00702 

00703 
00704 
00705 

00706 
00707 
00708 
00709 

00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 

00718 
00719 
00720 
00721 
00722 

00723 
00724 

00725 



0375 
0375 
0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 
037J 
0375 
0375 
0375 

0375 
0375 

0375 

0375 

0375 

0375 
0375 
0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 
0375 
0375 
0375 
0375 

0375 
0375 

0375 



(FlLENAMEaOUTPUTFlLE ANO 

end of fileparam*;x 

X 
X 

INTEGER TFQRMJX 

BOOLEAN SIGNED, NEGATIVE^ 

X 

DEFINE CONSTANT(CVAL»CTYPE)* 

BEGIN 

IF CUR3Y«MINUS QR CURSY»PLUS 

BEGIN 5IGNEQ»«THUEJ NEGATIVE 

INSYmBQL** 
END ELSE SlGNEOl»NEGATlVEl»F 
IF CURSY'INTCONST THEN* 
BEGIN CTYPEIMNTTYPEU 

CVAL«*IF NEGATIVE THEN 
END ELSE* 
IF CURSY*ChARCQNST thenx 

begin if signed then errors 
gtype»*chartype; cval 

ENO ELSE* 

IF CURSY»REALCQNST THENX 

BEGIN CTYPEI«REALTYPE;X 

CVAH*IF NEGATIVE THEN 

eno elsex 

if cursysalfacqnst thenx 

begin if signed then errqrcs 
if curlength>7 then er 
ctype»"alfatypej cval 

end elsex 

if cursy«identifier thenx 

BEGIN* 
SEARCH!* 
IF FOUND THEN* 
BEGINX 
IF THlSiD,lDCLASS=CONST A 
BEGINX 

IF TYPETABUTHISID.TYP 
BEGINX 

CVAL*"THISID.INFQJX 
IF CVAL>1023 THEN CV 
CTYPE»»THISID,TYPEJ* 
IF SIGNED THENX 
BEGINX 

tf0rm|«typeta8h 
if tform^numeric 

if negative then 

end;* 
end else begin errqru 

END ELSE BEGIN ERRQRC32) 
END ELSE BEGIN ERRQRUJJ C 
END ELSE BEGIN £RRQR<32); CV 
insymbql;*.. 

END OF CONSTANT#>X 



NOT OUTPUTDECL) THEN EHR0R(96);x 



%*** <CONSTANT> *** 
It****************** 
THENX 

isCursy*minus;x 
alse;x 



CURVAL ELSE CURVALJ* 



«)iX 

i*curval;x 



•CuRvAL ELSE CURVAL** 



9)i% 

ror<4u;x 
»«curval;x 



ND NOT BOQLEANCTHlSlD.FORMAL) ThENX 
E3.FORMSALFA THENX 

ALI»C0NSTTABCCVAL-1Q23J#X 



thisid,type3,form;x 

AND TFORM/FLOATING THEN ERRQRC29) ELSEX 
CVALM-CVAL'* 

&)} CVAL»*»CTYPE»»0 END** 
i CVALUCTYPEI«0 ENQJ* 
VAL««CTYPEl*0 END** 
ALI*CTYP£l»0 ENQU 
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SCANNER* 
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INTERNAL 


INTERNAL 


SYMBOL 


X 

X 

X 


S¥MBOL 


NUMBER 


NAME 


KIND 


IDENTIFIER 


1 


IDENTIFIER 


MlDOLE 


X 


122 




2 


INTCONST 


MIDDLE 


X 


2t5. 




3 


REALCONST 


MIDDLE 
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MIDDLE 


X 


«C H 
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CHaRCONST 


MIDDLE 
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NOT 
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NQ.T5Y 


MIDDLE 
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* 
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MIDDLE 
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/ 




6 


SLASH 


MIDDLE 


X 
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AND 
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MIDDLE 
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MIDDLE 
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MIDDLE 
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MIDDLE 
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OR 
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MIDDLE 
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X 
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17 
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MIDDLE 


X 


> 


GTR 


18 


GTRSY 


MIDDLE 


X 


<> 


NEQ * 


19 


NEQSY 


MIODLE 


X 


* 


eql 


20 


EQLSY 


MIDDLE 


X 


IN 




21 


INSY 


MIDDLE 


X 


( 




22 


LPaR 


MIDOLE 


X 


) 




23 


RPAR 


MIDDLE 


X 


c 




24 


LBRACKj;T 


MIDDLE 


X 


3 




25 


RBRACKET 


MIOOLE 


X 


• t 




26 


DOUBLEOOT 


MIDOLE 


X 


t 




27 


COMMA 


MIDDLE 


X 


i 




26 


SEMICOLON 


TERMINAL 


X 


• 




29 


DOT 


MIDOLE 


X 


* 


e 


30 


ARROW 


MIDDLE 


X 


1 




31 


COLON 


MIDOLE 


X 


\m 




32 


ASSIGNSY 


MIODLE 


X 


.BE fill 


i 


33 


BEgINSY 


INITIAL 


X 


END 




34 


endsy 


TERMINAL 


X 


IF 




35 


IFSY 


INITIAL 


X 


THEN 




36 


THENSY 


MIDDLE 


X 


ELSE 




37 


ELSESY 


TERMINAL 


X 


CASE 




38 


CASESY 


INITIAL 


X 


or- - 




39 


QFSY 


MIDDLE 


X 


REPEAT 


40 


REPEATSY 


INITIAL 


X 


UNTIL 


■ 


41 


UNTILSY 


TERMINAL 


X 


WHILE 


42 


WHILESY 


INITIAL 


X 


DO 




43 


DOSY 


MIOOLE 



X 
X 
X 
X 
X 
X 
X 
X 



00781 

00782. 

00783 

00784 

00785 

00786 
00787 

00788 
00789 
00790 
00791 
00792 
00793 
00794 
00795 
00796 
00797 
00798 
00799 
00800 
00801 
00802 
00803 
00804 
00805 
00806 
00807 
00808 

00009 
00810 

00811 
00812 

00813 
00814 

00815 
00816 
00817 
00818 
00819 
00820 
00821 
00822 
00823 
00824 
00825 
00826 
00827 

00828 
00829 
00830 
00831 
00832 
00833 
00834 
00835 
00836 
00837 



0375 
0375 
0375 
0375 
0375 

0375 
0375 

0375 
037| 
0375 
037J 
0375 
0371 

0375 
0375 
0375 

0375 
0375 
0375 
0373 
0375 
0375 
0375 
375 
0375 
0375 
0375 
0375 

0373 
0375 
0373 
037| 

0375 
0375 
0373 
0375 
0375 
0373 
0375 
0378 
0375 
0375 
0375 
0375 
0375 
0375 
0371 

0375 
0375 
0375 
0375 
0375 
0375 
0373 
0375 
0375 
0375 



% 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

X 
X 
X 

X 

X 
X 

X 
X 

X 
DEFINE 



FOR 
T.Q.. 

DOWNTO 
GOTO 

NIL 

TYPE 

ARRAY 

RECORD 

FILE 

SET 

CONST 

VAR 

LABEL 

FUNCTION 

PROCEDURE 

WITH 

PROGRAM 

PACKED 



44 
45 
46 
47 
46 
49 
50 
51 
52 
53 
54 

55 
56 

57 
58 

59 

60 

61 



BLANK*4 e «, EfiUAL"6l#, QUOTES 
LETTERCC)*U 7 *C AND C$25)0R( 
ALFANUM(C)*ClEttERCC) OR CS9 
X 

REAL CURVALJX 

ALPHA CuRNAME1jCURNAME2>C,CXJX 

integer curlength#lastcharpqs;x 
boolean finish 

X 

DEFINE NEXTCHARwX 

BEGIN COMMENT *** READ NEXT CHARACT 
IF CHARCNT*0 THEN CI*BLANK ELSE 
BEGINX 

REPLACE CHARPNT By CARDPNTI 
Cl»CH[oJi CHARCNTI»CHARCNT» 

END ENO *l% 
X 

X 

X 

proceoure insymbol;* 
begin comment *** reads 
integer scale#exp;x 



FORSY 

TOSY 

DOWNTQSY 

GOTOSY 

NJLSY 

TYPESY 

ARRAYSY 
RECQRDSY 
FILESY 
SETSY 

constsy 

VARSY 
LABELSY 

FUNCSY 
PROCSY 

WITHSY 

PRQGRAMSY 

PACKEDSY 



*63#, D0LLAR«42##X 
33jc AND Cs4i)0R(50sC 

)«;x 



ER« *** )% 
X 

CARDPNT FOR \i% 



THE NEXT SYMBOLt ***JX 



INITIAL 
MIDDLE 
MIDOLE 
INITIAL 

MIDDLE 

INITIAL 

MIDOLE 

MIDDLE 

MIDDLE 

MIDDLE 

INITIAL 

INITIAL 

INITIAL 

INITIAL 

INITIAL 

INITIAL 
INITIAL 
MIDDLE 



A N0 CS57,#,X 



START OF 



BOOLEAN NEGEXPJX 

LABEL START»QVERFLOK*X 
X 
STARTIX 

IF C-BLANK THENX 

BEGIN SCAN CARDPNT I CARDPNT FOR CHaRcNT I CHARCNT WHILE • " ' 
IF CHARCNT«0 THEN BEGIN NEWCARD; GO TO START ENDiX 



;* 



00836 
00839 
00840 
00841 
00642 
00843 
00844 
00845 
00846 
00847 
00848 
00849 
00850 

00851 
00852 

00853 

00854 

00855 

00856 

00857 

008 5 8 
00859 

00860 

00861 

00862 

00863 
00864 

00865 
00866 
00867 
00868 
00869 
00870 
00871 
00872 
00873 
00874 
00875 
00876 
00877 
00878 
00879 
SEGMENT 
00880 
00881 
00882 
00883 
00884 
00885 
00886 



0375 
0375 
0375 
0375 

0375 
0375 

0375 
0375 
0375 
0375 
037S 

0375 
0378 
0375 
0375 
0375 
0373 
0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 
0375 
0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 
0373 
0375 

0375 
0375 

****** 

0000 
0000 

oooe 
0000 
0000 
0000 
0003 



*** 



nextchar;x 



00887 T 0070 



00000886 
00000886 
0000068$ 
00000886 
00000881 
I 
0000088* 



eno;x 

IF LETTER(C) THEN* 
BEGINS 

CURlENGTH»*i; 

nextchar;% 



00888 T 0078 



00000887 



CURNAMEll'C; CURNAME2»»0JX 



WHILE AtFANUMCc) ANQ CURLENGTH<6 DQX 
BEGIN CURNAMEH*CiCyRNAMtn35l29J30 3;* 

cuRleNqth»«curlength+i# nextchar;x 



end;x 

if curuenqth»6 then* 

BEGINX 

WHILE ALFaNUM(C) a n d curlength<i2 qox 
BEGIN CuRNAME2l»C&CU«NAME2t35l29«30];x 

curlength»*curlength*i* nextcharjx 



ENOjX 

WHILE ALFANWM(C) 0Q NEXTCHARiX 



END1X 

CURNAMEUNA 

CASE CuRLEN 

BESIN |X 

CURSYI«I0 

CURSY«*IF 

IF 

IF 

IF 

IF 

IF 

CI)RSYI«IF 

IF 
IF 
IF 
IF 
IF 
IF 

If 
IF 
IF 
IF 
IF 
IF 
IF 

IF 

cursymif 

IF 



melengthjscurlength; 

GTH QFX 



entifier 

CURNAME 
CURNAME 

CURNAME 
CgRNAME 
CURNAMe 

CURNAME 
CURNAME 

CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 



;x 

1*"20000IF" 
1»"2qQOOD0" 

1«"2QQ0QTQ" 
U M 20000QR" 

1*"200000F M 
la«20000lN» 
1»"3Q00END" 

U W 3000FOR" 
t»"3000DIV" 
l«"30Q0M0D n 
X»"3000NIL' , 
l»"3Q00AND" 
1«"3Q00NQT" 

1»"3QQ0VAR" 
1»«3000SET" 
1» W 3000LSS" 
t«"3000LEQ" 
1*«3QQQGEQ" 
1«"30QQGTR" 
1«»30Q0NEQ" 
1«"3000ECL" 
1«M0QTHEN" 
1«"40QELSE" 



THEN IFSY ELSEX 
THEN DQSY ELSEX 
THEN TUSY ELSEX 

THEN ORSY ELSEX 
THEN OFSY ELSEX 

THEN INSy ELSE IOEnHFIERU 

THEN ENDSY ELSEX 

THEN FURSY ELSEX 

THEN DIVSY ELSEX 

THEN MOQSY ELSEX 

THEN NILSY ELSEX 

THEN ANpSY ELSEX 

THEN NQTSY ELSEX 

THEN VARSY ELSEX 

THEN SETSY ELSEX 

THEN LSSSY ELSEX 

THEN LEQSY EL^EX 

THEN GEQSY ELSEX 

THEN GTRSY ELSEX 

THEN NEQSY ELSEX 

THEN E«LSY ELSE IDENTIFIERS 

THEN THENSY ELSEX 

THEN ELSESY ELSEX 



00889 
00890 
00891 
00892 



00893 T 

00894 t 

00895 T 



00897 

00898 
00899 
00900 
00901 



00902 T 

00903 T 



00905 

00906 
00907 

00908 
00909 

009*0 
00911 

00912 
00913 
00914 
00915 
00916 
00917 
00918 
00919 
00920 
00921 
00922 
00923 
00924 
00925 
00926 
00927 
00928 
00929 
00930 
00931 



0071 
0083 
0084 
0086 



00000885 



0094 
0102 
0104 



00000892 
00000892 



00896 T 0112 



00000895 
00000899 

00000894 



0113 
0114 
0114 
0123 
0129 



0133 
l 
0134 



00904 T 0150 



015fl 
0152 
0152 
OlSfi 
0154 
0156 
0158 
0160 
0162 
0164 
0167 
0169 
0171 
0173 
0U5 
017? 
0179 
0181 
0183 
0185 
0187 

0189 
0191 

0193 
0195 
0198 
0200 



00000901 
00000901 

I 
00000900 

t 

00000903 
00000903 

I 
00000898 



IF 
IF 
IF 
IF 
IF 

CURSYI'IF 
IF 
IF 
IF 
IF 
IF 

CURSYI*IF 
IF 

IF 
IF 

CURSY»»IF 



CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 
CURNAME 



1= M 4Q0WITH M 
i«"4G0CA5E M 
1«"400GQTQ" 
1»"400TYPE" 

1-_"«Q9FJLE" 
1*"50BEGIN W 

1«"50WHILE M 
1«"50UNTIU H 
1»"5QARRAY" 
1«"5QCQNST« 
i»"50LABEL" 
1»-6REPEAT M 
lw"60UWNT0 w 

1«"6RECQRQ" 
1*"6PACKED" 
1»«7PR0qRA« 



ELSE* 
ELSE* 
ELSE* 
ELSE* 

ELSE IDENTIFIERS 
ELSE* 

ELSE* 
ELSE* 
ELSE* 
ELSE* 

ELSE IDENTIFIER** 
ELSE* 



CURSYt^lF CURNAME 1« W 8FUNCTI W 
CURSYI«IF CURNAME1»"9PRQCED" 



cursy»*ioentifier; 

CURSYJ-IDENTIFIER; 
CURSY« S IDENTIFIERJ 
END OF CASE** 



X lO 
* 11 
X 12 



THEN WITHSY 
THEN CASESY 
THEN GOTQSY 
THEN TYPE5Y 
THEN FILESY 
THEN BEGINSY 
THEN WHILESY 

THEN UNTILSY 

THEN ARRAYSY 

THEN CONSTSY 

THEN LABELSY 

THEN REPEATSY 

THEN DOWNTOSY ELSE* 

THEN RECQRDSY ELSE* 

THEN PACKEDSY ELSE IDENTIFIER;* 

AND CURNAME2*"M" THEN PR0QRAM5YX 

ELSE IDENTIFIERS 
AND CURNAME2»"0N M THEN FUNCSY* 

ElSE identifier;* 
and curname2* w ure" then prdcsyx 

else identifier;* 
characters! 

CHARACTERS, 
CHARACTERS. 



IF RESwORDOPTION AND CURSY* IDENTIFIER THEN* 
BEGIN TI^CARDLEnGTH-cHAHCnT-CUrLEnQTH;* 

IF CHARCNT*0 THEN CAROPNT |«CARDPNT+1 ELSE Tl»«Tfi;x 

replace xlinepnt+t1 by cardpnt-c curlength+i )x 

for curlength;* 
end;* 

end of letter else* 



00932 
00933 
00934 
00935 
00936 
00937 
00938 
00939 

00940 
00941 

00942 
00943 

00944 
00945 
00946 
00947 
00948 
00949 
00950 

00951 
00952 
00953 
00954 
00955 
00956 

START OF SEGMENT 
9 IS 13 LONG 
00957 
00958 

00959 
00960 

00961 
00962 



0202 
0204 
0206 
0208 
0210 
0213 
0215 

0217 
0219 
0221 
0223 
0227 
0229 
0231 
0233 
0236 
0238 
0240 
0243 

0244 
0247 
024g 
0250 
0251 
0252 

******* 



NEXT 

0252 
0253 

0255 

0305 

0310 

0313 



0000090? 

*** 9 

SEG 8 



00963 T 0313 



IF C$9 THEN* 
BEGIN* 

curvah*c; 
nextchar;* 



cursy»»intcqnst;x 



00964 
00965 
00966 
00967 



0313 
0314 
0314 
0316 



00000958 
00000890 



WHILE C i' DO BEGIN CURVAL* «!OxCURVAL*C; NExTCHAR ENDU 



IF C 8 "," THENX 
BEGIN* 

nextchar;* 



IF C$9 THEN* 

begin cursy»»realconst;x 

DO BEGIN CURVALt«lQxCURVAL+C;x 

scale»*scale»i; nextchar;* 



00968 T 0323 



00000V67 
00000967 
I 

00000968 
00000968 
00000968 



00969 
00970 
00971 



00973 
00973 
00974 
00975 



T 0331 
T 0335 
T 0336 



00000971 
00000971 



0343 
0344 

0345 
0347 



00000975 



« 



END UNTIL C>9/» 
ENq ELSE IF C*"." THEN c'* 6 4 * SPECIAL MARK pOR »,," 

el^e err0rc4)>x 

end;x 

if c»"e w thenx 

BEGINS 

cursyi»realconst; nextcharjx 

if c"" + " or c»"-" then begin negexp» »c* n *"> nextchar enq'x 



IF CS9 THEN* 

BEGIN ExPt«CJ NEXTCHARJX 



WHILE C*9 00 BEGIN EXP «« lOx E XP+c* NEXTcHAR ENQ** 



IF NEGEXP THEN EXPI*-EXP;X 
END ELSE ERR0R<4)>X 

SCALEI«SC A LE+EXp;X 

end;x 

if cursy'realcdnst thenx 

BEGINX 

REALOVERFtOW "OVERFLOW^ 

euRVAL*«CuRVAL»<10*SCALE;x 

REALOVERFLOWJ*OjX 
END ELSEX 

IF CURVAL>MAXINT THENX 
BE8INX 

overflow* errqr(14); c^al'sO* rea^qverflqw«»o;x 

ENDiX 

END OF DIGIT ELSEX 

IF C»QUOTES THENX 

BEGIN! 

cursyi»alfaconst; curlengthhoj nextchar;x 



finisi*false;x 
do beginx 

if oquqtes then begin nextchar* flnl si»c#«u0te5 end elsex 



IF CHARCNT-0 THEN BEGIN ERR0RC6)* FINISI«TRUE ENOJX 



00976 T 

00977 T 

00978 T 

00979 T 

00980 T 

00981 T 

00982 T 



00984 T 

00985 T 



00987 T 

00988 T 

00989 T 

00990 T 



00991 
00992 
00993 
00994 
00995 
00996 



00997 J 

00998 T 

00999 T 

01000 T 



0356 

0357 

I 

0359 

0361 

I 

0361 
0362 
0362 



00000975 
00000974 
00000979 



00000970 



00983 T 0371 



00000962 
00000982 

00000963 
00000989 
00000983 



0382 
0382 



00986 T 0391 



0403 
0404 

( 

0406 
0407 

( 

0407 
0408 
0408 
0410 
0413 
04U 

l 

0414 
0415 
0416 

0418 



0000098b 
00000985 

00000986 
00000986 
00000986 



00000985 



00000981 



0000099? 



01001 T 0418 



00000998 
I 
0000096S 



01002 T 

01003 T 

01004 T 



01005 T 

01006 T 

01007 T 



0418 
042Q 
0421 



00001004 
00001004 



0430 
0431 
0431 



01008 T 0441 



00001007 
00001007 
00001007 



IF NOT FINIS -THEN* 
BEGINS 

REPLACE STRINGPNT+CURUENGTH BY CHARPNT FOR 11% 

CURLENGTHiaCURUENGTH+UX 

nextchar;x 



END ENQ UNTIL FINISJX 



IF CURLENGTHsO THEN ERRQRC4) ELSEX 
IF CURLENGTH«1 THEN* 
BEGIN CURSYUCHARCQNSTU 

REPLACE CHARPNT BY STRlNGPNT FQR \i CURVA|.l*CHtOm 

END ELSE* 

IF CURLENGTHS7 THENX 
BEtlN TEXTCQJJ*" *'»% 

REPLACE TEXTPNT BY STRlNGPNT FQR CURLENGTHJJ 

CURVAL««TEXTCO];X 
ENDJX 

END OF STRINGS ELSE* 

BEGIN% 

CURSYUSYMBQICCJJ NExTCHAR;% 



IF CURSY»COLON AND CaEQUAL THENX 

BEGIN CURSYI»ASSIGnSY; NEXTCHAR END ElSE% 



IF cursy«dot AND C""." thenx 

BEGIN CURSYIsDOUBLEDOT; NEXTCHAR END ELSE* 



IF CURSY*LSSSY AND C*EQUAL THENX 

BEGIN CURSYl«LEQSY; NEXTCHAR END ELSEX 



IF CURSYaLSSSY AND C*">" THENX 

BEGIN CURSYl*NEQSY; NEXTCHAR END ELSEX 



IF CURSY«GTRSY AND C«EQLAL THENX 

BEGIN CURSYiaGEQSY; NEXTcHaR END ELSEX 



IF CURSY«LPAR AND C»"*" THENX 

BE8IN X **# COMMENT *** 

NEXTCHARU 



01009 
01010 
010U 
01012 
01013 



01015 
01016 
01017 
01018 

01019 

01020 
01021 
01022 
01023 
01024 



01026 T 

01027 T 



01028 T 

01029 T 



01030 T 

01031 T 



01032 T 

01033 T 



01034 T 

01035 T 



01036 T 

01037 T 



01038 T 

01039 T 

01040 T 



0444 
0444 
0445 
0456 
0451 



00001008 



01014 T 0458 



0459 
0461 
0462 
0464 

0467 

l 

0467 
0469 
0470 
0473 
0474 



00001013 
00001013 
I 

00001010 
00001000 



00001017 



01025 T 0474 



0474 
0476 



00001021 

00001003 



0484 
0486 



00001027 
00001027 



00001029 
00001029 
00001029 



0495 
0497 



00001031 
00001031 
00001031 



0506 
0506 



0517 
0519 



00001033 
OO0O1O33 
00001039 



0528 
0530 



00001035, 
00001035 
00001035 



0539 
0541 

0541 



00001037 
00001037 
00001037 



* dollaR indicates compiler options, 



if c^dQIUR then 
do begins 
nextchar; cxi»c; nextchar;* 



IF CX« W L M THEN IF 0*1 THEN HEADING* 

ELSE LlSTUPTIONlsC*"+" ELSE* 

IF CX*"R" THEN RESWOROQPTlQN l«C»"+" ELSE* 

IF CX»"C" THEN CHeCKQPT!QN»»C*"+" £LS£* 

IF CX*"D" THEN OUMPQPTIQNl«C*"+ H ELSE* 

IF CX» W X" THEN XREFQPTlONl»C« M *" ELSE* 
IF CX« M A" THEN* 

IF C»» + " THEN WRITE(PASCALG0L*ALIST)X 

ELSE WRITECPASCALGQL'NOALIST) ELSE* 

IF CXs"T" THEN* 

BEQIN LASTCHARPOS »» CHaRcNT • CARDLENGTHj* 

CARDLENGTHI*10xcn 

. nextchar; caRdlengthiscardlength*c>* 



if cardlenqths9 qr cardlength>8q then* 
begin errorch); cardlength t»72 end;* 

charcntl«maxco»lastcharpos*cardlength»uu 
end;* 

nextchar;* 

end until C*">*;X 
finis*«false;x 

DO BEGIN* 

IF C'"* H THENX 

SCAN CARDPNTtCARDPNT FOR CHARCNT iCHARCNT UNT*L ■"*"** 

IF CHARCNT»0 THEN Ne^CARD ELSEX 



BEGIN NEXTCHAR;* 



WHILE C»"*" DO nextchar;* 



FlNlStsC*")*;* 
END END UNTIL FINlSi* 

nextchar;* 



01041 T 

01042 T 

01043 T 



01045 
01046 
01047 
01048 
0J04V 
01050 

01051 
01052 

01053 
01054 

01055 
01056 



0105? T 
01058 T 

010*9 T 
01060 T 



01063 
01064 
01065 
01066 

01067 



01068 T 

01069 T 



01070 T 

01071 T 



0549 

0550 
0551 



0000 
0000 



0000 
0000 
0000 
0000 



01044 T 0566 



1040 
1040 



1043 
1043 
1043 
104| 



0590 
0592 

0595 
0598 
0601 
0604 

0605 
0609 

0613 
0614 

0616 
0617 



0000104* 



0626 

0628 

( 

063Q 
0634 



0000 
0000 



1056 
1056 



00001058 



00001054 



01061 T 0634 



01062 T 0641 



0000 
0000 



1061 
1061 



0643 
0643 
0644 
0644 
0647 



0000104* 



0714 



0728 



0731 
073f 



0000 
0000 
0000 
0000 

t 

0000 
0000 

J 

0000 
0000 



01072 T 0733 



0000 
0000 



1067 
1067 
1067 
1067 

1068 
1066 

1069 
1061 



1068 
1064 



00001078 



GO TQ STARTS* 
END OF COMMENTS* 



END;* 
END OF INSYMBOU^X 



00001072 

01073 T 0740 

01074 T 0741 

00001039 

01075 T 0741 

00001020 

01076 T 0741 

00000676 
6 IS 753 LONG, NEXT 5EG 2 



m 



xxxx%xxxxxx%xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*xxx% 
% X 

X * 

X » 

X PART 4» EXPRESSION PARSER, * 

x » 

X x 

X x 

X x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

X 

procedure expression; fqrwarojx 
proqequre cqncat; fqrhardjx 

X 

alpha tempsymjx 

real sx;x 

integer exprlevet'tx;x 

X 

DEFINE PUTTEXT(T)»X 
BEGINX 

IF NUMSYMS«MAXSYMS THENX 

BEGJN ERRQRC71);X 
NUMSYMSI»IU 

eno else numsymshnumsyms + w* 
symtabcnumsyms3i*t'x 

end of puttext #ix 

X 

DEFINE PUTSYMCS)»X 
BEGINX 

TEMPSYM!s(S)&lUl»516j;X 

PUTTEXT cte.mps.xm.>*.* 

END OF PUTSYM #)% 

% 

OEFINE PUTCQNST(VAL?»X 

BEGINX 

PUTTEXT("200000Q")iX 

PUTTEXTCVAL)'X 

END OF PUTCONST *}% 
X 

DEFINE PUT DUMMY.**. 
BEGINX 

PUTTEXTC*30Q0000")JX 

END OF PUJDUMMY $1% 

X 

DEFINE PUTlO(L#NUM#NUMDIG)«X 

&EGIKI 

TEXT[03«»" " * L [3515163;* 

REPLACE TEXTPNT+2 BY NUM FOR NUMDIG DIGIT5U 

PUTTEXT C TEXT CO .1.).! X 
END OF PUTIOm 
X 

DEFINE MRJI£EXP.RJ*J 

BEGINX 

FOR Tl»«l STEP I UNTIL NUMSYMS DOX 

BEGINX 

sxjsSymtabctu; txi«sx,uii63;x 



01078 
01079 
01080 
01081 
01082 
01083 
01084 

01085 
01086 
01087 
01088 
01089 
01090 
01091 
01092 
01093 
01094 
01095 
01096 
01097 
01098 
01099 



01 

01 
01 
01 
01 
01 

ot 

01 

01 
01 
01 
01 

01 

01 
01 

01 
01 
01 
01 
01 
01 

.01 
01 
01 

01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



00 

01 
02 
03 

04 
05 
06 

Q> 

08 
09 
10 

11 
12 

13 
14 

15 
16 
17 
18 
19 
20 
21 
22 
23 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 
0375 
0375 
037| 

0375 
0375 
0371 

0375 
0375 
0375 
0375 



i 
i 



PUTCON§TCl.UIM)>% 
PgTCQNSTCgLlMJJX 
PUTCONST(CAROCNT);% 



IF TX«0 THEN GENCSX»7#2) ELSEX 
IF TX«3 THEN ELSEX 

IF TX«i THEN GENCSX>1,7) ELSE* 
BEGINS 

TU»Tl*i; SXl«SYMTAB[Tl3JX 

IF SX.U4I63-0 THEN GENlNT(SX) ELSE GENREAL (SX >iX 
END END/% 
NUMSYMSl«OjX 

END OF WRITEEXpR#;X 

X 

X 

DEFINE CHECKEXPR(LLIM,ULIM)*X 

BEGINX 

PUTTIXTC "CHECK (»)!« 

EXPRESSIONS 

PUTSYMC# W ); 

PUTSYM<"*"?> 
PUTSYM(",«); 

PUTSYM(")")JX 
END OF CHEiKEXPRi;X 
X 
X 

BOOLEAN SIMPUEVARIABLE#INSIDEBRACKETS;X 
INTEGER NUMPQINTERS;X 
X 

PROCEDURE VARIABLES 
BEGINX 

INTEGER STARTSYM#ILIM,UIIM;x 

REAL TiX 

BOOLEAN INBRACKET#INRECORDiX 

LABEL ADDApDR;X 
X 

STARTSYMlPNUMSYMS*i;X 

IF THISLeVeU>cU«UeVeU TH£N X 

BEGIN X 

T»*DISPLAYCTHISLEVELJ;X 

Tat*T t FlRSTWITHSYM; T5 t»T .LASTW ITHSYMU 
FOR T3«*T4 STEP 1 UNTIL T5 DO PUTTEXTC WITHTABC 1 3) ) I X 



START OF 



VARIABLE IN 
RECORD USED 



FlEUp UST Of 

IN WITH-STATEMENT, 



lNRECQRDi»TRUt;X 

lNBRACKET««BOULEANCTtBRACKETSINWlTH)JX 
NyMPO JNTeRS I »NUMPO INTgR S*T»NUMPNTRSINWITh;x 
SIMPLE VARIABLE I «FALSE;X 
CuRTYPEt«T,RECTYPE; T t »TYPETABl tCURTYPE JiX 

go tq adqaddrjx 
eno;x 

if thislevel>1 and thislevel<curlevel then err0r(5)ix 
curtype t "This id. type; simplevariable»»true;x 

PUTI0C"V'M0OOxTHISLEVEL*THJSINDEX*5>U 



01135 
01136 
01137 
01138 
QU 39 
01140 

01141 
01142 

01143 
01144 
01145 
01146 

01147 
01148 
01149 
01150 
01151 
01152 
01153 
01154 
01155 
0U56 
01157 
01156 
01159 
01160 
01161 
01162 
SEGMENT 
01163 
01164 
01165 
01166 
01167 
01168 

01169 
01170 
01171 
01172 



01173 
01174 
01175 
01176 
01177 
01178 
01179 

01180 
01181 
01182 



0375 
0375 
0375 

0375 

0375 
0375 

0375 
0375 

037f 
0375 
0375 
0375 

0375 
037} 
0379 
037J 
0375 

0375 
0375 
0375 
0375 
0375 
0379 
0375 
0379 
0379 
03/9 
0379 
********* 

0000 
0000 

0008 
0000 
0000 
OOOl 

0002 
0002 
0003 
0006 



10 



0015 
0016 
0017 
0019 
0019 
002| 
0022 

0022 

0025 
0027 



00001172 
OO00U7g 



00001169 



INSYMBOL'X 

IF CURSY«LBRACKET 



OR CURSY*D0T OR CyRSYwARROW THENX 



01183 
0H84 



0043 
0044 



00001182 
00001182 
00001182 



BEGINX 

S IMPLEVAR I ABLE* -FALSE J X 

00 BIGINX 

IF CURSY*LBRACKET THENX 

BEGINX 

IF NaT(INBRACKET gR INKECQRD) THENX 
BEGIN PUTSYM( M C W ); INBHACKET I aTRUE ENOiX 



DO BEGINX 

TUTYPETAB1CCURTYPE3U 

LllMI»TYPETAB2t c URTYPE3; UlJMt*TYPETAB3[cURTYPEm 

IF T#FORM>ARRAYS THEN ERR0R(12);x 

IF jNRECORD THEN PUTTEXTC" ♦("JJX 



INSYMBQUX 

IF CHECKOPTION THEN CHECKEXPR(LLlM>ULlM ) ELSE EXPRESSIONS 



01185 
01186 

01187 
01188 
01189 
01190 
01191 



01192 
01193 
01194 
01195 
01196 



0U97 T 
01198 T 



CHECKTYPESCTilNXTYPE,CURTYPE);x 



0047 
004? 
0040 
0049 
0049 
0050 
0051 



0060 
0060 
0061 
0063 
006S 



00001191 
00001191 
00001191 
0000H91 



0078 
00^2 



00001196 
00001196 



01199 T 0151 



00001198 
00061196 
OO00H98 
00001198 
00001198 
00001198 
00001198 
00081198 
00081198 
00001198 
00001198 
00001198 
00001198 
00061198 
00061198 
00061196 
00001198 
00001198 
00001198 
00061198 
00001198 

00001198 
00001198 
00061198 
00061198 
00061198 
OO00U98 
00061198 
00001198 
00001198 

00001199 
0000119f 
00001199 

00001m 

00001199 
00001199 



CURTYPEI*T.ARRTYPEU 
IF INRECORO THENX 
BEGIN* 

IF LUM<0 THEN BEGIN 



PUTSYMC"*"?; PUTCQNST(-UlM) END ELSE 



IF ULIM>0 THEN BEGIN PUTSYM(»-">; PUTCQNSTC LLlM) ENOjX 



PUTSYMC")")/* 



IF TYPETABUCURTYPE].SIZE>1 THEN* 

BEGIN PUTSYMC"x">J PUTCQN5TC TYPETAB1 CCURT yPE ] «SUE ) ENDJX 



END ELSE IF TYPETAB 1 [CURTYPEJ ,STRUCT>0 THEN PUTSYM ("#" )}% 



END UNTIL CURSYKCOMMA;* 

IF CURSY*H B RACKET THEN* 

BEGIN ERRQRC59); SkIPCRBRACKET )JX 

if cursy-rbracket then iNSymboljx 

END ELSE INSYMBQLU 

END OF BRACKETS ELSE* 

IF CURSY-DQT THENX 
BE6INX 

IF ..notcinbracket or inrecord) thenx 

BEGIN PUT5YM("C"); INBRACKET' pTRUE ENDJX 



C1200 T 

01201 T 

01202 T 

01203 T 



01206 
0120/ 



01210 
01211 
01212 
01213 



01215 
01216 
0121? 
01213 



0212 
0213 
0213 
0214 



0000119|l 



01204 T 023S 



01205 T 0257 



0265 
0266 



00001203 
00001203 
00001203 
00001203 
00001203 
00001209 

00001203 
00001203 

00091203 
) 

00061204 
00001204 
00001204 
00001204 
00001204 
00001204 
00001204 
00001204 
00001204 

0000120$ 
00001205 
00001203 



01208 T 0288 



01209 T 0298 



0299 

0300 
0302 
0304 



00001207 
00001207 
00001207 
00001207 
00001207 
00001207 
00001207 
00001207 
00001207 

i 

00001202 
00001208 
00001208 
00001208 

! 
00001192 



01214 T 0309 



0305 
0306 
030| 
030? 



00001211 
1 
00001181 



ADOAODRl 



T»»TYPETABlfCURTYPE3U 

IF t.fq'rmxRecord THEN ERRQR(12);X 

INSYMBOL** 

IF CURSY»I0ENTIFIER THEN* 

BEGINX 

SEARCHTAB(T.RECTAB);* 



IF FOUND THENX 
BEGIN* 

thisid*»nametab3Ct,recTab#tmisindexj;x 

PUTSYM(" + ")U 



pgTCQNSK THIS ID, INFO); CURTYPEI*THISID»T 1f>g}% 



ENo .ELSE BEGIN ERRORCDi cURTYP£l«0 END'* 



END EL S E BEGIN ERR0R(9); CURTYPEUO ENDJX 



inrecqrd!»true;% 
Insymboux 
end of dot else* 

begin x cursy»arrow 

Tl«TYPETA8l[CURTYPE]U 
IF T.FORM»FILES THENX 
BEGINX 

curtype?*t«fiuetype;x 

if typetabhcurppejtstructeo then puttext<" 



END EL SEX 



coj">;x 



if t,fQRm«textfile thenx 

BEGINX 

SYMTAB t NUMSYMS3l*SYMTAB[NUMsYMS] 4 "I H [35I5«6J>* 
PUTSYMC","); PUTTEXT("UASTCH n );X 



curtype»»chartype;x 

END ELSE* 



01219 
01220 
01221 
01222 
01223 
01224 



0122b T 
01226 T 
0122? T 
01228 T 



01232 T 

01233 T 

01234 T 



01235 
01236 
0123? 
01238 
0123V 

01240 



01242 
01243 
01244 
01245 



01246 T 

01247 T 



0316 
0317 
0320 
0326 
0321 
0321 



00001218 
00061218 
00061218 

00001219 



0342 
0342 
0342 

0345 



00061224 
00001224 



01229 T 0352 



01230 T 036? 



01231 T 0369 



0371 
0372 
0372 
( 
0372 
0373 
0374 
0375 
0375 
0377 



00001228 
00001228 

00001228 

i 

0000122? 
0000122? 
00001229 

00001229 

00001229 

< 

00001226 
00091230 

l 

00001223 
00061231 



00001216 



01241 T 0384 



0384 
0388 
0388 
0391 



00001240 
00061240 

00061238 



0404 
0405 



00061245 
00001245 
00061245 
00001245 
0000124 5 



00001243 



IF T.FQRM*P0INTERS THENX 

BEGIN* 

IF INBRACKET THEN PUTSYM<"1" )}% 



INBRACKETI«FALSEU 

IF NUMSYMS+2tMAXSYMS THENX 

BEQINX 

FOR n*»NUMSYMS STEP -1 UNTIL STARTSYm DO* 

SYMTAB[n*2 3t*SYMTABtTnJX 
SYMTABCSTARTSYM]»«" MEM["JX 

SYMTABCSTARTSYH-fl3l» n CT»« M ;X 

NUMSYMSiaNUMSYMS + g^ NUMPO INTERS I *N«JMPQ INTeR3*1* X 

inrecord»*true;x 

END ELSE ERR0RC63>n 

CURTYPE**T.PQINTTYPE'X 
END ELSE BEGIN ERRORC12); CURTYPE»«0 END** 



insymbqlj* 
end of arrowu 

end until. cuRsyxlbracket and cursy*oqt and cursyjarrdnjx 
if typetablccurtype],strgct*0 thenx 

BEG I NX 

IF INBRACKET THEN PUTSYM ("J" ) i% 



WHILE NUHPOXNTERS>0 OQX 

begin puttextc"-i)oiv")' puttextc i022»");x 



pUTTEXTC" T MQD")i PUTTEXTC 1022]");X 



NUMPO INTERS I .NM MPO I NTERS-iix 



ENDJX 



end;x 
end;x 
insioebrackets»*inbracket;x 

CURMQDE**NuMBeR'X 
END OF VARIABLE** 



10 IS 



01248 T 0403 
Q1249 T oaoe 
01250 T 0408 

00001250 
00001250 
00001250 
T 0417 
T 0417 
T 04H 
T 0419 

T 0421 
T 0425 
T 0426 
T 0428 
T 0430 
T 0431 

00001253 
T 0434 
T 0436 

00001249 

00001262 
T 0438 
T 0438 

00001235 
01265 T 0438 

00001187 
0441 
0443 
0443 

00061268 

00001268 
00081266 

0452 

0453 

00001270 
00001270 
00081270 
00001270 

01271 T 0466 

00001271 
00001271 
00081271 
00001271 

01272 T 0480 

01273 T 0481 

00001270 

01274 T 0484 

00001267 

01275 T 0484 

00001181 

01276 t 0484 

01277 T 0484 

01278 T 0485 

00001161 
490 LONG# NEXT SEG 2 



01251 
01252 
01253 
01254 

01255 
01256 
01257 
01258 
01259 
01260 

01261 
01262 



01263 
01264 



01266 
01267 
01268 



01269 
01270 



X 

X 

PROCEDURE PASSpARAMSU 

ft C" f" T Kl ¥ 

INTEGER NPARS,PARAM#PTYPE,P,FIRST$YM;x 

BOOLEAN FORMAuPROC»CHECk;X 
LABEL EXlTjX 
X 

PUTIDC"V"#i000*THISLEVEL + THI3INDEX#5m 



P«»THlSlDtINFQJ* 
FORMALPROCtsiBOOLEANcTHlSID,FQRMAL);x 

nparSuparamTabipj; pi*p*i;* 
if formalprqc then npars««9999*x 

INSYMBQLU 

IF CURSY-LPAR THENX 

BEGIN* 

PuTStM( M ( M )iX 



DO BEGINX 
INSYMBOLJX 
IF NPARS"0 THEN BEGIN ERRQR<3)J SKIpCRpAR)J Go To EXIT EnDJ* 

paRami.paRamtabcp]; Pi*Pnjx 

PT¥PE|«PARAm.PARAMTYPEU 

if PaRa m « p a w amkind»cOnst thenx 

BEfi I NX 

OhECkI«ChECKQPTiQN ANO TYPETABICPTYPEJ.FQRM LEQ Ch*R*X 

IF CHECK THEN PUTTEXT C "CHECKC B ); X 



PUTdummyJ firstsym«*numsymS;ji 



EXPRLEVEL»*EXPRtEVEL*liX 

expression; exprleveli«exprlevel-ux 

if cuRmooe«bitpattern thenx 

begin symtabcfirsjSymj**" realc m ; putSymc w )")> end;* 



IF CHECK THENX 
BEGINX 

putsym<"» m >; putconstctypetab2cptyped;x 



START OF 



01279 
01280 
01281 
01282 
01283 

SEGMENT 
01284 

0128b 
01286 
01287 



01288 
01289 
01290 
01291 
01292 
01293 
01294 
01295 



0375 
0375 
0373 
0373 
037S 



********** 



11 



T 
T 
T 
T 
T 
T 
T 
T 



01296 

01297 
01298 

01299 
01300 
01301 
01302 
01303 
01304 



01306 
01307 
01308 
01309 



T 

T 
T 

T 



01310 
01311 
01312 



T 

T 
T 



0000 
0000 
0000 
0000 



00001287 
00001287 
0000128? 



0016 
0018 
0019 
0021 
0023 
0023 
0024 
0024 



0033 

0034 
0034 

I 

0037 
0040 
0041 
0042 
0043 
0045 



00001295 
OOO01295J 
00001295 



00061298 



01305 T 0052 



0060 
0061 
0063 
0064 



00001304 
00001304 

i 

00001305 
00001305 
00001305 



00001309 
00001309 
00001309 
00001309 



0073 
0075 
0076 



00001312 
OOQ01318 
00001312 
00001312 
00001312 
00001312 



PUTSYMC "#♦•)/ PUTC0NST(TYPeTA83CPTYPEJ);* 



PUTSYMC"*")* PUTCONSTCCARDCNDi PUTSYM( * J" )i X 



ENDJ*. 
END ELSE* 

IF PARAM.PARAMKINO-VAR THEN* 

BEGIN* 

IF CURSY*IDENTIFIER THEN* 
BEGIN* 
SEARCH** 



IF FOUND THEN* 
BEGIN* 

if thisid.idcuass*var or* 

thisid.idclass*const and booieancthisio.fQrmai.) then* 

BEGIN* 

IF PARAMtPARAMFlUE'l THeNX 
BEGIN* 

curtypei«thisid,type^* 

PUT ID(*V",!000*THISLEVEI»+THISINDEX»5); putsymc«» w )i* 



PUTID(' , F H *1000XTHIStEVEt*THlSlNOEX#5)i PUTSYM(«#" ) J * 



01313 T 0096 



01314 T 0U7 



0131b T 
01316 T 



01317 

01319 
01319 
01320 
01321 



01322 
01323 
01324 
0132b 

01326 
01327 

01328 
01329 
01330 



T 

T 
T 
T 
T 
T 
T 
T 
T 



0146 
I 
0146 
I 

0146 
014f 
014 8 
0149 
0149 



00001318 
00001312 

\ 

00001319 
00001313 
00001313 
00001313 
0000131J 
00001313 
00001313 
00061313 

00001314 
00061314 
00001314 
00001314 
00001314 
00001314 
00001314 
000Q1314 
00001314 
00001314 

00001314 

00001311 
1 
0000130^ 



oi7a 

0178 
0178 
0180 

0188 
0183 

0184 
0184 
0186 



00001321 
00001321 
00001321 
00081321 



01331 T 0210 



00001330 
00001330 
00001330 
00001330 
00001330 
00091330 
I 

00001331 
00081331 
00081331 
00081331 
00081331 



PUTID( M I'V1000xTHISlEV&L*THl5INDEX>5m 



INSYMBOtl* 
END ELSE* 

BEGINS 

variable;* 

IF TYPETABltCgRTYPE3«STRUCT>0 THEN* 
IF NOT SIMPLEVARIABLE THEN ERR0R(92)jX 

end;x 

ENO ELSE BEGIN ERR0R<8); CURTYPEUO END;x 



END ELSE BEGIN ERRORCj); CURTYPEl»0 ENDJX 



END EL S E BEGIN ERR0RC9); CURTYPE»»0 lHQi% 



END ELSE* 

BEGINS 

IF CURSY-IDENTIFIER THENX 
BEGIN* 
SEARCH** 



IF FOUND THENX 

BEGINS 

IF THI$IO.IDCLASS*PARAM f PARAMKlND jHEN EHRORC^i);* 

PUTid( h VM000kTHISleVEL*THISINDEX#5);X 



c URTYPeI»IF THlSIOtlDCl-ASS«FUN C THEN THlSlDiTYP E E l$E }% 

insymbolu 
end else b e qin eRPQ r u>> curtype««o endu 



end el s e begin errqrc*); curtypei*o enqj* 

end;* 
checktypes(ptype#curtype))x 



01338 T 0234 



01333 T 

01334 T 



01335 
0133$ 
01337 

01338 
01339 



01341 T 

01342 T 



01344 T 

01345 T 

01346 T 

01347 T 



01348 T 

01349 T 

01350 T 

01351 T 



01352 T 

01353 T 

01354 T 



01356 T 

01357 t 



0250 
0251 

i 

0251 
0251 
0252 

0253 

0256 



00001331 
I 

00001331 
00001332 
00001332 



00001328 



01340 T 0256 



0258 



0260 



01343 T 026g 



0262 
0262 
0263 
0263 



00Q01335 

} 

00001326 
00001340 

) 

00001323 
00001341 

) 

00091320 
00001342 

00011318 



029g 
029g 
029g 
0295 



00001347 
0000134F 
00081347 
00001347 



0312 

0316 
0317 



00001351 
00001351 
00001351 



01355 T 0319 



0321 
0321 



00001349 
00001354 

00001346 
00001355 

0000 1344 

00011357 
000Q135? 
00001357 
00001357 
000Q135? 
00001357 



NPARSi*NPARS«l'* 

IF CURSY«CQMMA THEN PUTS YMC "#" ) J % 



END UNTIL CURSY^COMMAiX 

IF CURSYXRPAR THEN BEGIN ERRQRC89); SKIP(RPAR) ENQJX 
EXIT! PUTS¥M<")«>;X 



if cursy*rpar then insymbou* 
end;x 

if npars>0 ano not fqrmalprqc then errqrc3);x 

CURMOOEl*NuMBERJX 
END CF passparams;x 



00061357 



01358 T 
01399 T 



01360 T 

01361 T 

01362 T 



01363 T 

01364 T 



0380 
0381 



039Q 
0391 



0394 



0401 
0403 



00001359 

00001358 
00001359 

I 
0000129ft 

00001361 
\ 

00081362 
0000136$ 
00001362 



00001294 



01365 T 0403 

01366 T 0406 

01367 T 0407 

0000128g 
11 IS 414 LONG, NEXT SEG 2 



X 
X 

PROCEDURE 
BEGIN 

INTEGER 



FACTOR' 

startsym#stype#t;x 



%*** FACTOR *** 



BOOLEAN FIRSTS 
REAL VALJX 



START OF 



DEFINE 

BEGIN* 

IN 

IF 

BE 



parameters 



X*** CHECK THAT THE FUNCTION HaS 1 PARAM, 



SYMBOL** 

CURSY*UPAR THENX 
GINX 

PUTSYMC"C"); INSYMBQL' EXPRESSIONS 

IF TYPETA8lCCURTYPE]«F0RM«NUMERlC THEN CURTYPE islNTTYPE; X 
IF CURSY*RPAR THEN BEGIN ERR0R(3)i SKIp(RpAR) EnOJX 
PUT$YMC") ,, )J IF CURSY»RPAR THEN INSYMBOLJX 
END ELSE ERR0R(3)jX 
END OF PARAMETER#iX 



CURMODEI 
IF CURSY 
BEGINX 
SeARCHJX 



NuMBERiX 
IDENTIFIER ThENX 



IF FOUND 
BEGINX 



THENX 



01368 
01369 
01370 
01371 
01372 
SEGMENT 
01373 
01374 
01375 
01376 
01377 
01378 
01379 
01380 
01381 
01382 
01383 

01384 
01385 
01386 

01387 
01388 
01389 
01390 
01391 



01392 
01393 



T 

T 

T 
T 

T 



0375 
0375 
0378 

037S 
0375 



********** 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 

T 
T 
T 
T 
T 



0000 
0000 
0000 
0000 
0000 

oooo 

0000 

oooo 

oooo 
oooo 
oooo 

oooo 
oooo 
oooo 
oooo 
oooo 

0006 

oooi 

0002 
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0031 
0031 



00001391 
00001391 
00001391 
00081391 



IF THISID,I0CLASS«VAR OR* 

THISIO.IDCLASSsCQNST AND BQOLEANCTHXSIDfFQRMAL)* 

then variable eisex 

if thisio,ioclass«const then* 

8EGINX 

IF THISID.INF0S1023 THEN PUTcONST<THI$lO» INfO )% 



ELSE PUTCONSTCCONSTTABCTHI SI D,lNFO» 10233)* 



@uRtypei*thisid.type; curmqde* -number; x 

insymbolj* 
end elsex 



IF THISI0,I0CLASS«FUNC THEN* 
BEGINS 

IF THISTAB*0 THEN 

BEGIN* 

INTEGER DUMMY;* 



X*** INTRINSIC FUNCTION *** 



IF CURNAME1»"3000A8S" THEN 
BEGIN! 

PUTTEXTC ABS"); PARAMETERS 



X "ABS" 



START OF 



IF CURTYpE*REAi,TYpE A N D CURTY PE> I NTTYpE THEN ERRQRC67);X 
END ELSEX 



IF CURNAME1* M 3000CHR" THEN 
BEGINX 

insymbqlix 

IF CURSY»LPAR ThENX 

begin insymbql; checkexpr<o,63);x 



X "CHR" 



01394 
0139b 
01396 
01397 
01390 
01399 



0031 
0033 

0035 
0036 

0030 
0031 



01400 T 00b4 



01401 

01402 
01403 

01404 

01405 
01406 

01407 
01408 
SEGMENT 
01409 
01410 
01411 



01412 
01413 

01414 

01415 
01416 
01417 
01418 



0000 
0000 
0000 
0000 
0000 

0000 
0000 
0009 

ooot 

0000 



1399 
1399 
1398 

1399 
1399 

1400 
1400 
1400 
1400 
1400 



0066 

0070 
0071 

0071 
007 3 
0073 
0074 
007* 



00061396 



********** 



oooe 

OOOQ 

ooot 



003ft 

0039 

i 

0039 

0040 
0041 
0041 
004g 



OOOQ 
0000 
0000 
0000 
0006 
0000 
0000 
0000 
0000 
0000 
0000 
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1411 
1411 
1411 
1411 
14U 
1411 
1411 
1411 
1411 
1411 
1411 



00001410 



0006 
0000 
0006 

0006 

0000 
0000 
0006 
0006 



1418 
1418 
1416 
1418 
1416 

1418 
141? 

1418 



IF TYpETABlCCURTYpEJtFgRMXNUMERlC THEN ERRQRC67JJX 
IF CURSYXRPAR THEN BEGIN ERR0RC46)J SKlP(RPAR) ENDJX 

IF CUR5Y«RPAR THEN INSYMBQL*X 
END ELSE ERR0R(58)U 

CUHTYPII^CHARTYPE/X 
END ELSE* 



IF CURNAMEl»"300QEQF" OR 

CURNAMEH^OOEOLN" THENX 
BEGINX 

first* ■curname1«"3000eof w #x 
filepaRamcinputfile);x 



X "EaFVEOLN" 



PUTIDC M I M # FILENAME* 5 );X 



PUTTEXTCIF FIRST THEN " .EOF" ELSE " t EOLN")iX 



IF LP AR FOUND THENX 
BEGINX 

IF CURSYXRPAR THEN BEGIN eRR0R(46)J SKJP(RPAR) cNqJX 



01419 T 

01420 T 

01421 T 

01422 T 

01423 T 

01424 T 



01425 
01426 
01427 

01428 
01429 



01432 T 

01433 T 

01434 T 



0120 

0122 

i 

0125 
0127 

i 

0126 
012* 

0129 

one 

0131 

0132 
0133 



00001418 
OOO0UJI 
00011418 
00001418 
00001416 
00001418 
00081410 
00001418 
00081418 
00001418 
00081418 
00001416 
0000141$ 

00081418 
00081418 

00001418 
00001418 
00061418 
00001418 
00QQ1418 
00001418 
00081418 



00001420 



00081418 



0000141S 



01430 T 0186 



01431 T 0201 



0209 

0209 
0209 



00001429 
00001429 

00001429 
00001429, 

00001429 

00001429 
00001429 
00001428 
00001429 
00001429 

00001430 
00061430 
00001430 

000Q1431 
0006 1 "31 



000614 34 



Iff 



IF CURSY-RPAR THEN INSYMBOL'X 
ENDiX 

CURTYPEl«BQQlTYpEJ* 
END ELSEI 

IF CURNAMEl«"3O0OODD" THEN 
BEGIN* 

PUTTEXTC" ODD")/ PARAHETERiX 



X "QDO" 



IF CURTYPE*INTTYPE THEN ERRQR(67)JX 
CURTYpEl'BOOUTYpE; C0RM0DEl»8ITpATTERN;» 
END ELSEX 



IF CURNAMEl^aOOOORD" THEN 
BEGINX 

putsymc«(«); insymboux 



X M QHD W 



IF CURSY»l.PAR THEN* 

BEGINX 

INSYMBQU EXPRESSIONS 

IF TYPETABUCuRTYPE3tFQRM>CHAR THEN ERRORC$7);» 

IF CUR5YXRP A R THEN BEGIN ERRQRC46); SKIP(RP A R) E^D** 

INSYMBQUX 
END ELSE ERRQR<58)i* 

CURTYPE«»INTTYPE) PUTSYMC" )" ))% 



X "PRfco*V w SUCC" 



END. EL3EX 

IF CURNAMEl«"4O0PRE0'' or 
qURNAMEl*"4QQSUCC" THENX 

BEGINX 

FIRSTI«CURNAME1« H «00PRED W ;X 
PUTTEXTC"CHECK<"j; INSYMBQUX 



IF CUR5YHPAR THENX 
BEGINX 

INSYMBOU EXPRESSIONS 
. PUTSmUF FIRST THEN " mn ELSE "♦">; PUTSYM("i");x 



01435 
0143$ 

0U37 
01438 



01448 
01449 
01450 
01451 
01452 

01453 
01454 



01439 T 

01440 T 

01441 T 



01442 T 

01443 T 

01444 T 

01445 T 

01446 T 

01447 T 



01457 
01458 

01459 
01460 
01461 



01462 T 

01463 T 

01464 T 

01465 T 



0212 

0214 

i 

0214 
0215 
I 

0215 

0218 
0219 



00001433 



00001427 



0254 
0256 

0258 

0258 
0259 
0259 



00001141 
00001441 

00001441 
00081441 
00QM441 
00001441 
00061441 
0009H41 
00001441 
0000H41 
00081441 



00001440 



0269 
0269 
0270 
0271 
0274 
( 

0276 
OJ277 



00061447 
00061447 
00001447 



00001451 



01455 T 0278 



01456 T 0286 



0286 
0288 
0289 
0289 
0290 



00001449 

I 

00001455 
00061455 
000fll«5J 

> 
00001446 



0299 
0299 
0300 
0301 



00001461 
00061461 



00001465 



IF TYPETABUCURTYPE3,F0RM>CHAR THEN ERHUR(67);X 
PUTSYM ("#")> PUTCONSTCTYPETAB2tCURTYPE3);X 



01466 T 

01467 T 



PUTSYM (">«); PUTCQNST(TYPETAB3tCURTYPE]);» 



putsym<">"); putcQnst<cardcnt);x 



PUTSYM(")");X 



IF CURSYXRPAR THEN BEGIN ERRQRC46H SKIPCRPAR) ENDJX 

IF CURSY»RPAR THEN INSYMBQUX 
END EUSE BEGIN ERR0r<58); CURTYPEt»0 ENDJX 



01472 T 

01473 T 



END ELSE* 

IF CURNAME1»"5ORQUN0" THEN 

BEGIN.* 

PUTTEXTC" ROUND"); PARAMETERS 



X "ROUND' 1 



01475 T 

01476 T. 

01477 T 



0319 
0321 



0000146b 
00001469 
00001465 
00001465 
00001465 



01468 T 0342 



01469 T 0363 



01470 T 0384 



01471 T 039 2 



00081467 
00001467 
0000146? 
00001467 
00001467 
00001467 
00081467 
00001467 

00081468 
00001468 
00001460 

00001461 
00001468 
00001468 
00001468 
00001468 

1 

0000146$ 
00001460 
00001469 
0008146$ 
0000146$ 
00001469 
00001469 
00001469 

\ 

0000147Q 
00001470 
00001470 

"00001471 



0394 
0396 



01474 T 0398 



0398 
0399 
0400 



00081463 
00001473 
! 
00001459 



00081477 
00001477 
00081477 
00001477 
00001477 
00001477 
00081477 
00001477 
00001477 



IF CURTYPE*REALTYPE THEN ERRQR<67);x 
NUMSYMSI«NUMSYMS*1^ PUTSYM (%" )i X 



PMTCONST(CARDCNT)> PUTSYMf )" )'*% 



01478 T 

01479 T 



CURTYPEIwINTTYPEU 
END ELSEX 

IF CURNAMEl« M 30GQSQfl" THEN 
BEGINX 

PUTTEXTC SQR")J PARAMETERS 



X "SQR" 



01481 T 

01482 T 

01483 T 

01484 T 

01485 T 



NUMSYMSl*NUMSYMS w t ; PUTSYM (">" )i % 



PUTCONSTCCAROCNT)/ P(jTSYM< " )•» )>X 



IF CURTYPE/REA^TYPE AND CuRTYPEXlNTTYPE THEN ERR0R(67)JX 
END ElSEX 



IF cyRNAMEl* w 50TRUNC , ' THEN 
BEGINX 

PUTTEXTC" TRUNC">> PARAMETER'* 



X "TRONC" 



01488 T 

01489 T 

01490 T 

01491 T 

01492 T 



0435 
0437 



00001477 
00001477 



01480 T 0446 



0467 
0467 

046f 
0469 
0469 



00001479 
00001479 
00001479 

00001460 
00061480 
00061483 
OOO0148Q 
00001480 
00001480 
00001480 
00081480 



0008147ft 



01486 T 0504 



01487 T 05U 



0534 
0537 



00001483 
00001485 
00001485 
00001485 
00061485 
00001485 
0000148$ 

00001465 
00001485 
00001465 
00001485 

00001486 
00061486 
00001486 
5 

00001487 
00001487 
00001467 
00001487 
00001487 

00061487 
00061487 
00001487 



0537 
0538 
0538 



00001484 



0000149J 
00061492 
00061492 
0006149| 

00001498 



NUMSYMSlsNUMSYMS-lJ PUTSYMC "» " )}% 



PUTCQNSTCCARDCNTH P(JT5YM(" >" )jX 



IF CURTYPE'REALTYpE THEN ERRQR(67);X 
CURTYPEl'INTTYPEiX 
END ELSE* 



IF CURNAME1»"6C0NCAT" THEN 

CONCAT ELSEX 

IF CURNAMEl*"400TlME w THEN 

BEGINX 

PUTTEXTC"(TIME(")J PUTTEXTC♦ , l)/60) ,, )}* 



% W C0NCAT M 
X "TJME* 



C URTYPe»»REaUYPeJ INSYMeOL>X 
ENO ELSE* 

IF CURNAME1* M 40QDATE" THEN % "DATE" 

BEG INX 

PUTTEXTC"CURDAT")i* 



CURTYPEl«ALFATYPEi INSYMBQLJX 
END ELSEX 

IF C.URNAMg;i»"7ELAPS£" AN CURNAMe2«"o" THEN 

BEGINS 

PUTTEXT( H <TIME( W ); PUTTEXT( n 2 )/60)")U 



X "ELAPSED" 



cuRtypehREaltype; insym0Ol;x 

END ELSEX 



IF CURNAME1«"6IQTIME" THEN 
BEGINX 

P.gTTEXTi"$TlHEt"); PUTTEXT("3 }/60 }")U 



X "IQTIME" 



01493 T 0573 



01494 T 0582 



Q1495 T 

01496 T 

01497 T 



01498 
01499 
01500 
01501 
01502 



01503 T 

01504 T 

01505 T 

01506 T 
0150/- T 



01508 T 

01509 T 

01510 T 

01511 T 

01512 T 



01513 T 

01514 T 

01515 T 

01516 T 

01517 T 



OOOO 
0000 
0000 
0006 
000 s 

oooe 
I 

0000 
0000 
0000 
J 

0008 

oooe 

0000 
0006 
0000 

oooe 

0000 

oooe 



1492 
1492 

1492 
1492 

1492 
1492 

1499 

1493 
1493 

149ft 
1494 

1494 
1494 
1494 
1494 
1494 
1494 



0603 
0605 

0605 

I 

0605 
0607 
0608 
0610 
0611 



00001491 



0625 
0626 
i 

0626 
0629 
0630 



0000 
0000 
0000 
OOOQ 



1502 
1502 
1502 
1502 



00001501 



0000 

oooo 



150F 
1507 



0637 

0638 

I 

0638 
0642 
0643 



00001506 



0657 

0658 

I 

0658 
0661 
0668 



oooe 

0000 
0000 

oooo 



1512 
1512 
1512 
1512 



oooe 1511 



00001517 



9 



cuRtypemrealtype; insymbqljx 

ENo ELSE* 

IF CURNAMEl*"7WEEKDA" AND CURNAME2*"Y" THEN X "WEEKDAY" 

BEGINX 

PUTTEXTCKEEKOA");* 



C URTYPEt»ALFATYPE; INSYMfiOti* 
END ELSE IF CuRNAMEl«"4Q0uSER" THEN X "USER" 

BEGINX 

PUTTEXT(" TIME"); PUTTEXT<" ("1> M >>* 



CURTYPE»*AUFATYPEi INSYMfiOLfX 
END ELSE 



X "SlN"*"CQS n ETC. 



BEG I NX 

PUTTEXTCIF CURNAMEI«"3000SIN" THEN " SIN" ELSEX 

IF CURNAMEl«"3OO0C0S M THEN " COS" ELSEX 

IF CURNAMEl«"6ARCTAN w THEN "ARCTAN" ELSEX 

IF CURNAMEi*"40QS Q RT" THEN H SQRT" ElS£X 

IF CyRNAMEl»"3000EXP" THEN " EXP" ELSEX 
" LN");X 



PARAMETER** 



IF cU r TYPe^ReaLTYPe AND cURTYPe*INTTYP£ THEN E R RQR(67);x 
CURTYPE**REALTYPEi* 
END**' 

END QF INTRINSIC FUNCTIONS ELSEX 



BEGIN! 

t»pthisid,type;x 

PASSPARAMSjX 

curtypev«t;x 
end;x 

end qf functions elsex 
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01518 
01519 

01520 
01521 
01522 



01523 
01524 

01525 
01526 



01527 
01528 

01529 
01530 
01531 
01532 
01533 

Ol5 3 * 
01535 



0153/ 
01538 
01539 



01536 T 



01540 T 



78* LONG* 

01541 T 
01542 
01543 
01544 

01545 



01546 T 



00001517 
OQ001517 
00001517 

0676 

0677 

00061516 

0677 

0681 

068g 

00081522 
00001522 

0689 

0698 

00001521 

0693 

069« 

0008152* 
00001526 
00081520 
00001526 

0708 

0709 

00081525 

0709 

0712 

0712 

0712 

0712 

0712 

0712 

00001535 
00001535 

Q72F 

00001536 
0000153ft 
0000153* 
00081536 
00001536 
00001536 
00081536 
00001530 
00081536 

0765 

0768 

0769 

00001529 

0769 

00001407 
NEXT SEG 12 

0076 
0076 
007? 
00 71 

0079 

00081541 
0079 

00001405 



IF THISID,IDCLASS*PR0C THEN* 
BEGINX 

ERR0R(68)J PA5SPARAMSJX 

CURTYPEt«Q*X 
END ELSE BEGIN ERRQR(69)J CURTYPEI»Q> INSYMBOU END'* 



END ELSE BEGIN ERROR(l); CURTYPEUO; INSYMBOL ENDiX 



END OF IDENTIFIER ELSE* 

IF CURSYSCHARCQNST THEN* 
BEGINX 

CONST ANT (VAU* CURT YP£)i PUT CONST <VAL>* X 



END ElSEX 

IF cURSY*NOTSY THENX 

BEGINX 

PUTUXTC" NOT "); PUTOUMMY; STARTSYMl»NUMSYM5iX 



INSYMBOU; FACTORiX 

IF CURTYpE>0 THENX 

IF CURTYPE*B00LTYPE THEN BEGIN ERRQRCl7>> CURTYPEl-0 END;* 



IF CURMODE"NUHBER THENX 
BEGIN SYMTABCSTaRTSYMJIh" 



B( w ; PUTSYM(") w );x 



01547 
01546 
0154V 
01550 
01551 



01554 
01555 
01556 



01558 
01559 
01560 



01561 T 

01568 T 

01563 T 

01564 T 

01565 T 



0079 
0080 
0081 
008J 
0083 



01552 T 0085 



01553 T 008$ 



0088 
008$ 
0090 



00061548 
00061551 

5 

0006139| 
00001552 

J 
00001390 



01557 T 0190 



00061556 
000Q1556 
00001556 
00001556 
00001556 
00001556 
00001556 
0000155* 
00061556 
00001556 
00001556 
00001556 
00061556 
00061556 
00001556 
00001556 
00001556 
00001556 
00061556 
00001556 
00001556 
00061556 
00001556 
00001556 

) 
00001555 



0190 
0191 
0192 



0206 
020? 
0208 

I 

0211 
0212 



00061560 
00061560 
00061560 
00061560 
00091560 



00001563 



00001565 
00001565 



CURMQDtlsBITPATTERN/* 
EnDJX 

END EL$EX 

if cursy*nilsy thenx 

BEGINX 

PUTCONST(O); CURTYPEl*NaTYPEn 



INSYMBQUX 
END ELSEX 

IF CURSY"UPAR THENX 

BEGINX 

PUTSYMC"( W );X 



insymbol; expressiqn;x 

if cuRSy*rpaR then begin e r RQRC46); skipcrpaR) enqjx 

putsym(")")jx 



insymboux 

END EL5EX 



**** SET CONSTANT #** 



if cUrsy»l, B racket then 

BEGINX 

INSYMBOL;X 

IF CURSYwRBRACKET THENX 

BEGINX 

putconstcoj; curtypeiwEmpTySet; curmodei«number;x 



INSYMBOUX 
END EISEX 

BEGINX 

FIRSTUTRUEJX 

DD BEGINX 

IF FIRST THEN FIRSTtaFALSE ELSE INSYMBOUX 
PUTTEXTC" BITC")* startsym»*numsyms;x 



expression;* 

IF STYPE»0 THENX 
BEGIN STYPEt»CURTYPEiX 







00001565 


01566 


T 


0223 


01567 


T 


0224 

0006156b 


01568 


T 


0224 

00001559 


01569 


T 


0224 


01570 


T 


0229 


01571 


T 


0226 

00001571 
00081571 
00001571 
00001571 
00001571 


01572 


T 


0239 


01573 


T 


0239 

00001570 


01574 


T 


0239 


01575 


T 


0241 


01576 


T 


0241 

0000157# 
00081576 

00001576 


01577 


T 


0249 


01578 


T 


0250 

00001578 


01579 


T 


0252 

00001579 
00001978 
00001579 


01580 


T 


0260 


01581 


T 


026Q 

00001575 


01582 


T 


0260 


01583 


T 


0262 


01584 


T 


0262 


01585 


T 


0263 


01586 


T 


0263 


01587 


T 


0264 

00001587 
000C1587 
00001587 
0000158? 
00001587 


01588 


T 


0279 


01589 


T 


0279 

oooeisap 


01590 


T 


0279 


01591 


T 


0280 


01592 


T 


0280 


0l5'3 


T 


028i 


01594 


T 


0283 

00061594 
00001594 


01595 


T 


0290 


01596 


T 


0290 


01597 


T 


0291 



IF TYPETABUCURTYPE3,F0RM>CHAR THEN ERRQR(72m 
END ELSE CHECKTYP£5(STYPE#CURTYPE)J* 



IF CURSY-OOUBLEDOT THEN* 
BEGINS 

PUTSYMC**")* SYMTABLSTARTSYMJl'" BITSCJX 



INSYMBOt; EXPRESSION;* 
IF STYPE'O THEN* 

BEGIN STYPE»»CURTYPE'X 

IF TYPETABUCURTYPE]»FQRM>CHAR THEN ERR0R<72)JX 

END ELSE CHECKTYPESCSTYPE#CURTYPE);X 



ENDU 

PUTSYM( w #")i PUTCONSTCCARDCNT); PUTSYMC " )" )i X 



IF CURSY-CQMMA THEN PUTTEXT<" OR")J* 



END UNTIL CURSY#CQMMA>X 

IF CURSY^RBRACKET THEN% 

BEIIN ERR0RC59); SKIPCRBRACKETJJX 

IF CURSYpRBRACKET then insymbqljx 

ENO ELSE INSYMBQLJX 



newtype; th«set; ti.size»»i; ti.structi«oj* 



TlfS " ETT YP E |iiSTYPE; TYP£TABnTYP£INOEX3lwTi;X 



01598 T 

01599 T 



0160Q T 

01601 T 

01602 T 



01603 T 

01604 T 

01605 T 

01606 T 

01607 T 



01608 T 

01609 T 



01612 T 

01613 T 

01614 T 

01615 T 

01616 T 

01617 T 



0292 
0295 



0356 
0356 
0357 



0000159? 
00001599 
00001599 
00001599 
00001599 
00001599 
00001599 
0008159V 



0366 
036? 
0367 
0369 

0371 



00061602 
00001602 
00001602 



0433 

l 

0433 



01610 T 0461 



01611 T 0468 



0469 

0470 
0472 
0473 

i 
0476 



00001605 
00001607 
00001607 
00001607 
0006160Z 
00001607 
00001607 
00001607 

i 
00001601 

I 

00001609 
00091609 
0000160$ 
00001609 
00001609 

0000160? 
00001609 
00001609 
00001609 
00001609 
00001609 

L 

00001610 
00001610 

} 
00081598 



0485 



QQ0QL613 

00001616 
00081616 



-•- t 



m 



curtype»»typeindex;x 
curmqdei-bitpattern/x 
end;x 

END QF SET CONSTANT ELSE BEGIn ERRQR<99)J insymbql EnDJ* 



END OF FACTORS 
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01618 T 0488 

01619 T 0489 

01620 T 0490 

00001590 

01621 T 0490 

00001583 
00031621 

01622 T 0492 

00001371 
496 LONG* NEXT SEG 2 



X 
% 
PROCEDURE TERMi **** TERM *** 

begin x************ 

INTEGER STARTSYM, MODE, TYPE 1#MUL0PTR,F;x 
PUTDUMMY; STARTSYM»»NUMSYMSiX 



factor;x 

MODEIsCURMODEiX 

WHILE CU R SY*ASTERlSK ANq cUR*»Y$M0d5Y qO * "*"*"/ n » n Dl v "*' ,M QD"' " A No' 

BEGINX 

TYPEll«CuRTYPEI. MULQPTRisCgRSYU 

fi«typeta81CTypeu,form;x 

IF FsNUMERlC OR F«FLOATlNG THENX 
BEGINX 

M00E«»N0MBEHU 

IF CURSY«ASTERISK THEN PUTSYM(%») else* 



START OF 



if cursy*slash then putsym<"/") elsex 



THEN ERR0R(64) ELSEX 



IF CURSYsANOSY 

BEGINX 

IF F.FLOATING THEN ERRt>RC64)JX 
IF CURSY»oIVSY THEN POTT£XT(" 



DIV") ELSE PUTTEXTC 



moo");* 



END END ELSE* 



IF CUBTYpE«BOOLTYPE OR F«SET THENX 
BEGINX 

mooei»bitpattern;x 

if curmodefmqde then* 

begin symtabcstartsym]!*" bc»»; putsymc) m ) eno;x 



01623 
01624 
01625 

01626 
0162/ 

SEGMENT 
01628 



01629 
01630 
01631 

01632 
01633 
01634 
01635 
01636 
01637 
01638 



0375 
0375 
0375 
0375 
0375 
******* 

T 0000 



*** 



14 



T 
T 
T 

T 

T 
T 
T 
T 
T 
T 



01640 

01641 
01642 
01643 



01645 
01646 
01647 
01648 
01649 



0006 
0007 
0007 

0010 
0010 
0011 
0013 
0015 
OQlg 
0016 



00061626 
00001628 
00001628 



01639 T 0026 



T 0035 

T 0038 

T 0038 

T 0040 



00061638 
00001636 
00091638 

00001639 
00001639 

0000163S 



01644 T 0055 



0055 
0059 
0060 
0061 
0061 



00001643 
OQO01643 

00061643 
00001643 

00001641 
0006163ft 



i 
1 



PUTTEXTC" AND ")f% 



IF CUR$Y*(IF F»S£T THEN ASTERISK El*E ANoSY) TH&N E««0R(6«>'X 
END ELSE ERR0RC64);x 

PUTDUMMY; STARTSYMI-NUMSYMSiX 



INSYMBOL; FACTORS 

IF CURTYPE^O AND TYPE1>0 THENX 

BEGIN* 

IF CURTYPEXTYPE1 THENX 
BEGIN! 

IF TYPETABi[TYPEl3,FORMNUMERIC OR CURTYPE*REAlTYPE THENX 
CHECKTYPESCTYPEl#CURTYPEm 



if typeuheautype then curtype urea^type; x 
end;* 

IF CuRtYPE»REAL,TYPE AND MuLQPTRjDIVSY THEN ERRURC65?;* 

end;* 

if muuoptR*suash then curtypehreaitypejx 
if curtypesq then curtype i «t ype1 j x 
end of while loop;* 

if modisbltpattern and curmqde*mqde thenx 

begin symtabcstartsym]!*" bc; pitsymcT) end;* 



curmodei»mode;x 
end of termu 



01650 T 

01651 T 
01632 T 

01653 T 



01654 
01655 
01656 
01657 

01653 
01659 

01660 



01661 T 
01668 T 

01663 T 

01664 T 

01665 T 

01666 T 

01667 T 

01668 T 

01669 T 



01670 T 

01671 T 

14 IS 165 LONG* 



00001649 
00001648 
00001649 
00001649 

0072 

00001650 
00091659 

0078 

0082 

00001646 

0084 

00081653 
00001653 

00081653 

0091 

0092 

0094 

0094 

0093 

0095 

009a 

00001660 
00001660 
00001666 
00001668 
00091660 
00091660 
00061660 

0159 

0161 

00091658 

0161 

0164 

00081656 

0164 

0166 

0168 

0009163g 

0168 

0178 

00001669 
00001669 
00001669 
00001669 

0180 

0181 

0000162$ 
NEXT SEG 2 



X 
X 

procedure simpleexpressiqn; 

BEGIN 

INTEGER STARTSYM#M00E#TYPE1#PJX 



X*** SIMPLE EXPRESSION *** 
X************************* 



01672 T 

01673 T 

01674 T 

01675 T 

01676 T 



0375 
0375 
0375 
0375 
037| 



boolean signed;* 

putdummyj startsymi»numsymsjx 



IF CURSY*P L U5 OR CURSY*MlNUS THEN* 
BEGIN SIGNED**TRUE>* 

PUTSYMCIF CURSY.pUUS TH£N"*« ELSE "» H );X 



insymbol** 



end;x 



TERMJX 

mode«»curmode;x 

if signed then* 

begin fl«typeta|ucurtype3»form;x 

IF FKNUMERlC AND F'FLOATING THEN ERRQrC29)JX 
ENDjX 

WHILE CuRSy^PLUS AND CuRSYSQRSY DO X «+","»", «q R h 
BEGINX 

TYPEtlaCuRTYPEi F t .TYPETABi CTYPEl 3 .FORM/x 

IF F*NUMERIC OR FpFLOATING THENX 

BEGIN MODE»«NUMBERJ% 

IF CURSY«PLUS THEN PUTSYM<"+«) EUEX 



IF CURSY«MINUS THEN PUTSYMC"*") ELSE ERR0RC64)JX 



END ELSEx 

IF CURTYp£*BOQLTYPE THEN* 

BEGINX 

MODE«"Bl Tp ATTERNiX 
IF CURMQDEKMODE THENX 
BEGIN SYMTA8tSTARTSYM]l« w 



IF CURSY«ORSY THEN PUTTEXTC" 



END ELSEX 

IF. FiSET THENX 

BEGINX 

MODEt»BlTPATTERN;x 
IF CURMQDE/MQDE THENX 
BE6IN SYMTABCSTARTSYMJIa" 



B<"J PUTSYM(-)") END^X 



OR") ELSE ERR0R(64);X 



START OF SEGMENT 
0U?7 
01676 
01679 



01680 
01661 
01682 



01663 
01684 

01685 
01686 
01687 

01668 
01689 

01690 

01691 
01692 
01693 
01694 
01695 
01696 



********** 
T 0000 

t oooe 

T 0000 

0000 

0000 

0000 



0169V 
01700 
01701 
01702 
01703 



BC»i PUTSYMC")") ENOiX 



01706 
01707 
01708 
01709 
01710 



0006 
0006 
0009 



0020 
0021 

l 

0021 
0021 
002S 
0022 
0024 
002f 

1 

0027 
0030 
0036 
0032 
0034 
0035 



oooe 
0000 
0000 



15 



1679 
1679 
1679 



1682 
1682 
1682 



00001661 



00061686 



01697 T 0044 



01698 T 0054 



0000 
0000 
0000 

I 

0000 
0000 
0000 



1696 
1696 
169$ 

1697 
1697 
1697 



0054 
0056 
0056 
0057 
0058 



00001695 



01704 T 0068 



01705 T 0077 



0000 
0000 
0001 

oooe 

I 
0000 

0000 



170J 
170 3 
1703 
1703 

1704 
1704 



0077 
0079 

0079 
0060 
0081 



00061700 



00061710 
00001710 
00001710 
00001710 

IF CURSY'PLUS THEN PUTTEXTC" OR") ELSEX 01711 T 0091 

00001711 
00001/11 

IF CURSY'MINUS THEN BEGIN PUTTEXTC AND" )JPUTUXT (" NOT ")ENP 01712 T 0098 

00001712 
00011712 

00001712 

QOO01712 
ELSE ERR0R(64);X 017U T 0114 

0000171? 
END EUSE ERR0H<64)JX 01714 T 0116 

00001707 
INSYMBPLJX 0171S T 0118 

PUTDUMMY; STARTSYM|«NUMSYMS;x 01716 T 0118 

00001716 
00Q01716 
00001716 
TERM;* 01717 T 0125 

IF CURTYp£>0 AND TYPEt>0 THEN* 01718 T 0125 

BEGINX 01719 T 0127 

IF CURTYPEXTYPE1 THENX 01720 T 0127 

BEGINX .. 01721 T 0128 

IF TyP£TAB1CTYPE1J,F0RM*NUMERIC OR CURTYPE^REALTYPE THEN* 01722 T 0129 

CHECKTYPE$(TYPEl#CURTYP£HX 01723 T 013i 

00001725 
00061723 
00001729 
00061723 
00001723 
00001723 
00001723 
IF TyPElaKEAUTYPE THEN CURT YPE« «REALT YPE i % 01724 T 0192 

END ENDU 01725 T 019« 

00001721 

00091719 
IF CURTYpE*0 THEN CURTYPEI'TYPEUX 01726 T 0194 

END OF WHILE LOQPU 01727 T 019ft 

00001692 
IF MODE«BlTPATTfcRN AND CURMODE*BI TPATTERN THENX 01728 T 0196 

BEGIN SYMTABtSTARTSYM]»s« B C W J PUTSYM<»)") ENDjX 01729 T 0198 

00001729 
00001721 

00061729 
00061729 

curmodei«mode;x 01730 t 020a 

END OF SIMPLEExPRESSION;X 01731 T 0209 

0006 1 67* 
IS IS 213 LONG* NEXT SEG 2 



01732 T 0375 



il 



PROCEDURE EXPRESSION; X*** EXPRESSION *** 

BEGIN X****************** 

INTEGER STARTSYM#FIRSTSYM,nPEl#RELQPTR»F;X 

BOOLEAN CAUGEN;x 
X 

EXPRLEVELMEXPRLEVEL+IJX 
IF EXPRUEVEl ■ I THENX 
8EGINX 

PUTQUMMYjX 



FlRSTSYM I* NUMSYMS;* 

eno;x 

putdummy; $TARTSYM!«NUMSYMS*X 



01733 

01735 
0X736 



0375 
037S 
0375 
0375 



START OF SEGMENT ********** 



16 



putdummy;x 



simpleexpre$siqn;x 

IF CURSYJLSSSY AND CURSYSINSY THEN X "<" * "S H #" 2" * ">","»","*",» IN W 
BEGINX 

TYPEii«CuRTYPE; Futypetab^ type-form;* 

reiqptri*cursy;x 

IF FSALFA thenx 

BEGINX 

IF CURMQDE«BITPATTERN THENX 

BEGIN SYMTA8CSTA«TSYM]t«" ReaU»; PUT5YM<»)") ENqU 



IF CURSY*LSSSY THEN PUTSYm<"<") EuS£X 



IF CURSY»LE«SY THEN PUTSYM(»s") ELSEX 



IF CORSY'GEQSY THEN PUTSYMpi") ELSEX 



IF CURSY«GTRSY THEN PUT5YMC">«) ELSEX 



IF CURSY*EQLSY THEN PUTSYMC".") ELSEX 



01737 
01738 
0173V 
01740 
01741 
01742 



01743 
01744 



01747 

01748 
01749 
01750 
01751 
01752 
01753 
01754 
01755 



oooe 
oooo 
oooo 
oooi 

0002 
0002 



0000174* 
00001742 
00061742 



0008 
0009 



01745 T 000* 



01746 T 0017 



0024 
0029 
0026 
0027 
0029 
0038 
0031 
0031 
0032 



QO0C1741 
i 

0000174* 
00091745 
00001745 

00001746 

00001746 
00001746 



01756 T 0043 



01757 T 0052 



01758 T 0061 



01759 T 0070 



01760 t 0080 



00001755 
00001755 
00001/55 
00081755 

1 

00001756 
00081756 
00081756 

i 

00001757 
00081757 
00001757 

00001758 
00001758 
00001758 

I 

00001759 
00001759 
00081759 

I 

00081760 
00081768 



1 

1 



IF CURSY»NE«SY THEN PUTSYMC'X") ELSE* 



BEGIN* 

IF FSFLOATINQ THEN ERR0R(64 ) i % 

SYMTABCSTARTSYM]t»"lNTST< M i PUTSYM («," ); CALlGEN l«TRUE> * 



end;x 

eno elsex 

if f»set thenx 

BEGINX 

IF CURMOOE«BlTPATTERN THENX 

BEGIN SYMTABCSTARTSYM + 1] l»" REAl("J PUTSYM (")" ) ENOJX 



IF CURSY«EOUSY OR CURSY«NEfl$Y THEN* 

BEGIN PUTSYMCIF CuRgY-EfllSY THEN "w H ELSE "X"m 



ENO ELSE* 

BEGIN* 

IF CURSY»IEQSY THEN SYMJABE STARTSYM J l* w INCli C n ELSE* 

IF CURSY-GEqSY THEN SYMTABCSTARTSYM] |*»I N C12C H ElSE ERRQRC64)J 

putsymc*")! cai_lgen»»tRue;x 



END END ELSEX 



IF F*POlNTERS THENX 

IF CURSY»EQLSY THEN PuTSYMC "»•• } ELSEX 



IF CgRSY*NEQSy THEN PgTSYMC"*"} ElSE ERRQR(64)JX 



END EUSE ERR0R(64);X 

insymbql;x 

putdummy; startsym|.numsymsix 







00001766 


01761 


T 


0089 

00001761 
00001761 
00001761 


01762 


T 


0098 


01763 


T 


0099 


01764 


T 


0101 

00001764 
00001764 
00001764 


01765 


T 


0112 

00001762 


01766 


T 


0112 

00001753 


01767 


T 


0112 


01768 


T 


0113 


01769 


T 


0114 


01770 


T 


0114 

00091770 
00001770 
00001770 
00001770 


01771 


T 


0125 


01772 


T 


0127 

00091772 
00001772 
00001772 


01773 


T 


0137 

00001772 


01774 


T 


0137 


0177b 


T 


0137 


01776 


T 


0140 


01777 


T 


0146 

00001777 
00001777 
00001777 


01778 


T 


0155 

00001774 

0000176B 


01779 


T 


0155 


01780 


T 


0156 


01781 


T 


0156 

00061781 
00001781 
00001781 


01782 


T 


0165 

00001781 
00001782 
0000178? 


01783 


T 


0176 

00001780 


01784 


T 


0177 


01785 


T 


0177 

0000178* 
0000178§ 

0008178$ 



SlMPtEEXPRESSIQNiX 
IF CURTYpE>0 ANO TYPEl>0 T*ENX 
IF CURTYPE^TYPEl THEN* 
IF RELOPTRMNSY THEN* 
BEGIN* 

IF TYPETABHTYPEn»FORM^NUMERIC OR CURTYPEJREALTYPE THENX 
CHECKTYPES(TYPE1*CURTYPE);» 



END ELSE* 

IF TYPETABUCURTYPE3.FQRMXSET THEN ERRQR<66)X 

ELSE CHECKTYPES(TYP E l#TYPET A BltC'JRTYPE3tSETTYPE);% 



IF CURMQDE«BITPATTERN THEN* 

BEGIN SYMTABC3TaRT5YM]»»" *EAlC M ; PUTSYMC")") ENDjX 



IF CALLGEN THEN PUTSYMC ")" )i % 



CURTYpEI*BOOi-TYpE; CURMOOEl "BIT PATTERN;* 

end;x 

EXPRLEVEL»*EXPRUEVEU-UX 

IF expruevelso thenx 

BEGIN* 

if curmqde-bitpattern then* 
begin* 

SYMTABCFIRSTSYMJ |* « REAK»;X 
PUTSYMC")")^ 



endjx 
writeexprjx 



01786 
01787 
01788 
0178V 
01790 

01791 
01792 



01794 T 

01795 T 



01796 T 

01797 T 



0179V T 
01800 T 



01801 
01802 
01803 
01804 
01805 
01806 
01807 



01808 T 

01809 T 



0164 
0184 
0186 
0187 
0189 
OI89 
0192 



01793 T 0253 



0006 
0000 
0000 

oooe 

0000 

oooe 

0000 



1798 
1792 
1792 
1792 
1792 
1792 
1798 



0253 

0256 



00001790 



0318 
0318 



0000 
0000 
0000 

oooe 

0000 
0000 
0000 



01798 T 0329 



0337 
0339 
i 
0339 
0341 
034g 
0342 
034a 
0343 
0345 



oooe 

0000 
0000 

oooo 

0000 
0000 
0000 



1795 
1795 
1795 
1795 
1795 
1795 
1795 



1797 
1797 
1797 
1797 

1798 
1798 
1798 



0000174* 



0353 

i 

0353 



oooe 

0009 

oooe 



1807 
1807 
1807 



oooeieos 



0000 
0000 

oooo 

0000 
0000 
0000 



1808 

1808 
1809 
1809 
180? 
1809 



end;* 
end of expression;* 



00001800 

01810 T 0«32 

00061803 

01811 T 0432 

00001733 
U IS 439 LONG* NEXT SEG 2 



X 

X 

DEFINE BOOLEXPR«X 

BEGIN* 

PWTDUMMY; EXPRLEVEW««U EXPRESSION;* 

IF CURTYPE>0 THEN IF CuRTYPE'BQQITYPE THEN ERR0RC17);* 

IF CURMQQEXBJTPATTERN THEN* 

BEGIN "3YMTABtl3i«" BC"; PUTSYMC " >" ) END;* 

exprle*eu*o; writeexpr;* 
end of bq01expr#;x 



01812 
01813 
01814 

01815 
01816 
01817 
01818 
01819 
01820 
01821 



0375 
0375 
0375 

0373 
0375 
0375 
037$ 
0375 
0375 
0371 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%x%%%%%%%%%%%%%%%%%%%%%%%%% 

% X 

% % 

X X 

X PART 5* INTRINSIC ROUTINES, * 

x - X 

X % 

X X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

X 

PROCEDURE CqNCATJ X*** "CqNCAT" *** 

BEGIN X**************** 

DEFINE INTEXPR»X 

BEGIN INSYMB.QU EXPRESSION^ 

IF CURTYPE>0 THENX 

IF TYPET*8nCURTYPE3 f FORM^NUMERlC ThEN ERRQRC17)'* 
ENO tiX 
X 

puttext<"concat"j; putsymC< m );x 



START OF 



insymbolu 

if cursyilpar thenx 

BEG I NX 

insymbou expression^ 
if cu_rtype>0 thenx 

IF TYpETABUCURtYpE3,F0RM>Al.FA THEN ERRQRC17);* 

IF CURSY*COMMA THENX 

BEGINS 

PUTSYM("# M j; INSYMBOU EXPRESSION;* 



IF CURTYPE>0 THENX 

IF TYPETABl[CuRTYPE3iFORM>AtFA T H EN ERRQRCl7m 

IF CURSY»CQ*MA THENX 

BEQINX 

PUTSYMC W #"U .IN.TEXP.RJ* 



IF CURSY-COMMA THENX 

BEG I NX _ 

PUTSYM("»")J INTEXPRJX 



IF CURS Y* COMMA THENX 
BEGINS 



01823 
01824 
0182b 
01826 
01827 
01828 
01829 
01830 
01831 
01832 
01833 

01834 
0183b 

01936 
01837 
SEGMENT 
01838 
01839 
01840 
01841 
01842 
01843 



01844 
01845 
01846 
01847 
01848 
01849 

01850 
01851 
01852 



01853 
01854 
01855 
01856 
01857 



01858 
01859 
01860 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0375 
0375 
0375 
0375 
0375 
037 5 
037S 
0375 
0375 
0375 
0375 
0375 
0375 

0375 
0375 



********** 



T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0000 
0000 
0000 
0000 



1? 



0014 

00J5 
0015 
0016 
0017 
0018 
0021 
0022 
0022 



00001843 
00001843 

00001843 
00001843 

00001843 



0031 
0031 
0035 
0035 
003« 



00001852 
00001852 
00001852 



0048 
0049 
0050 



00001857 
00001857 
00001857 
0000185? 



01861 
01862 



0062 
006$ 



00001860 

00001869 
00031868 
00001860 



PUTSYM("#'»)J intexpr;x 



PUTSYMC"*"); PUTCQNST(CARDCNT);X 



01863 T 0063 



PUTSYM<")"HX 

IF CURSY*RPAR THEN BEGIN eRRQRC3)J SKIP(RPAR) £ND>X 
END ELSE BEGIN ERRQROJf SKIP(RPAR) ENDiX 

EnO ELSE BEGIN ERR0RC3); SKIP(RPAR) EnDJX 
END ELSE BEGIN ERRQRC3); SKIP(RPAR) ENOJX 



end else begin errqr<3)J skiP(Rpar) endjx 



end else begin errorcsj; skipcrpar) endjx 



curtypei»realtype;x 
if cursy*rpar then insymbol;* 
end cf cqnqatjx 



01864 T 0076 



01865 T 0096 



01866 T 0104 



01867 T 0101 



01868 T 0108 



01869 T one 



01870 T 0112 



01871 T 0114 



00001869 
00001863 
00001863 
00001863 
i 

00001864 
00001864 
00001864 
00081864 
00001664 
00081864 
00081864 
00001864 

00001861 
0000186$ 
00001865 
I 
0000166$ 

\ 
00001662 

0000186? 

I 

00001859 
00081868 
I 
00001656 

00001869 

i 

00001851 
00081870 

i 

0000184(6 
00001671 



01872 T 0116 

01873 T 0117 

01874 T 0119 

00001836 
17 IS 120 LONG* NEXT SEG 2 



X 

X 

PROCEDURE PREADCCHANGELINE)JX 

VALUE CHAN8ELINE; BOOLEAN CHANGELlNEJX 

BEGIN* 

INTEGER FILEID'FJX 

BOOLEAN CHECKJX 
GENr BEGIN"'?'?);* 

FILEPARAMCINPUTFILE); FILEIDI "FILENAMES 



01875 
01876 
01877 
01878 
01879 
01880 



0375 
0375 
0J7S 
037J 
0375 
PJ75 



START OF SEGMENT ********** 



01881 
01882 



0006 
0000 



18 



01883 T 0009 



00001882 

i 

00001888 
00001683 



ir typetabhcuRtype3,form*files then eRRQR(85>JX 

IF $YMKINDCCURSyJ*TERMINAl THENX 
BEGIN* 

IF CURSY NEO RPAR THEN% 
00 BEGINS 

WHILE CURSYiCOMM* Do insymbql;x 
IF CURSY*IDENTIFIER THEN* 
BE6INX 
SEARCH** 



IF FOUND THEN* 

BEGIN* 
IF THISIQ.IDCLASS*VAR URS 

THISIDiIDCUaSS«cONST aNO B°OLEaNCTHISID. FORMAL) THEN* 
BEGINS 

variable' f»«typeTabiccurtypeJ.fqrm;x 

IF FpNUMERIC OR FwFuOAtING qR F*CHAR thenx 

begin* 
check»«check0ptiqn ano f*flqating;% 

WRlTEEXPR* GENc"»«"#2#6)JX 



r F check then genccheckc^^z);* 

GEN<"PREAQ(",6»2>J G£NI0< "F",FILEID, 5> * GENC",", \, 7}t% 

GENIDC"V"#FILEID#5)J GENC»,"> 1»7)JX 

G ENlDC M r^FILEl0#5); gEN(%"# 1#7)JX 

IF F*NUMERU THEN GENlNT(2) EUSEX 

IF FnFLOATlNG THEN GENJNTO) ELSE GENINTC1WX 



01884 
01885 
01886 
01887 

01888 
0188V 

01890 
01891 
01892 



01893 
01894 
01895 
01896 

01897 
01898 
01899 

01900 
01901 
01902 



01903 T 

01904 T 

01905 T 

01906 T 

01907 T 

01908 T 



006g 
0065 
0066 
0066 
0067 
0068 
0070 
0071 
0071 



00001883 
00001889 
00001883 
00001883 
00001883 
00001863 
00001883 
00001883 



0100 
0100 

oioe 

0102 

0104 
0105 
OlOf 

0109 
0110 
0112 



00001892 
00001892 
00001892 
00081892 



0199 

i 

0209 



0239 



0260 



0281 



0329 



00001908 
00001902 
00001902 
00001901 
00001902 
00081902 
00001902 
00001902 
I 

00001903. 

) 

00001904 
00081904 

00001904 

l 

00081903 
00001905 

I 

00001«0fi 
00001900 

00081907 
00081907 



00001908 
00001908 



GEN("*'M>7>; GENlNT(CARQCNT)i GEN (• )"# \> 7 )} % 



IF CHECK TH£NX 

BEGIN* 

GENC n * M *l»7)J GLNINTCTYPETAB2CCURTYPE3)) GEN(",", l,7)i % 



GENlNT(TYpETAB3tCURTYPE3>; GENC"*"* t> 7 );X 

GENINT(CARDCNT)* GEN(")%l#7m 

ENDJ* 
END ELSE BEGIN ERR0R<82)* iNSYMBQl ENDJX 

END EUSE BEGIN eRRORCBjj INSyMbQI ENojX 

end else begin errorcw; insymbou endjx 

END EUSE ERR0RC9)iX 

gen( w ;«^i»7j;% 
end until. cursy*cqmma;x 
if cursy»<rpar then begin errqrc46); skipcrpar) enq;x 

if cursyhRPar then insymbqux 
end;x 

IF CHANGELINE THENX 

BEGIN* 

GENC"RLlNEC w #6,2)i GENl0C n F'VFlLElD>5) J GENC",",1 ,7 }j% 

GENI0( M V",FItEl0*5); GEN("#",1,7 ) JX 
GENIDC"I"*FILEID/5>> GEN<")",l,7)JX 



end;x 



0190V T 0418 



01910 T 

01911 T 

01912 T 



00001906 
QOQ019Q8 
I 

00001909 
00001909 
00001909 
00001909 



0480 

048G 
0481 



01913 T 0543 



01914 T 0596 



01915 T 

01916 T 



0649 
( 
0649 



01917 T 0659 



01918 T 0655 



01919 T 

01920 T 

01921 T 

01922 T 

01923 T 

01924 T 

01925 T 

01926 T 

0l92^ T 

01928 T 

01929 T 

01930 T 



0658 

I 

0660 
( 

0669 
i 

0671 



0673 

0675 
( 

0675 
0676 
0676 



00001912 
00001912 
00001912 

00001912 

I 

00061913 
00061913 
00001913 

00001914 
00001914 

00001914 

1 
00081911 

) 

00061900 
00001916 

! 

QOQ01897 
00001917 

00061894 
00061916 
I 
00001891 

I 
00001920 

) 

00061888 
00061922 



00091886 



0706 



0727 



0748 



00061927 
00061927 
00001927 

00061928 
00001926 

00001929 
00061921 



I 
1 



fiENC"EMDV«.#5.)l* 
END OF PREADJX 



00001*26 
01931 T 0748 

00061931 
0193Z T 0757 

00001879 
18 IS 773 LONG* NEXT SEG 2 



X 
X 

PROCEDURE PWRITE(LINEFEED)U 
VALUE LINEFEED; BOOLEAN LINEFEEDS 

BEGINX 

INTEGER FlLElD'FM'USTSYjX 

POINTER PIX 

GEN<" BEGlN"»7#2);i 

FILEPARAM(OUTPUTFILE); FlLEiDI «FlLENAME;x 



START OF 



IF TYPETA8lCCURTYP E 3 l FQRM«FJl.E$ Th£N eRR0R(85);X 

IF sYMKlND[CgRSY3^TERMlNAL T H ENX 

BEGINX 

IF CU«Sy NEO hpar thenx 

DO BEGINX 

WHILE CURSY.COMMA DO INSYmBQUX 

IF CURSYfALFACONST AND CURLENGTH>7 THENX 

BEGIN? 

GEN("WALFA(«,6t2); GENIOC "F",FILEID*5); GENC",", I, j)t% 



tE*IIO(.?.vr , .fF.lLKlD#5)|. 6EN<",",1#7)JX. 



9IN I JU-" .1 ".« F * Wl 1 » 5 ? I G EN ( " > " » \ , 7 ) >% 



PI-STRIN6PNTIX 

FOR 11*1 STEP 7 UNTIL 80 OQX 
IF ISCURUNGTH THENX 
BEGINX - _ 

IF ALGQLCNU10 THEN WRITEAIgQUX 

REPLACE AlGOLPNt»ALGULPNt By »"% PIP FOR 7, """, ",";x 

-AUQiCNJIiALGO-LCNT-.lOiX 

END ELSE GENC"0#»,2,6)JX 



01933 
01934 
01935 
01936 

01997 
01938 

SEGMENT 
01939 
01940 



0375 

0375 

0375 

0375 

0375 
037J 

******* 

T 0000 
T 0000 



*** 



19 



01941 T 0009 



01942 
01943 
01944 
01945 

01946 
01947 
01948 
01949 
01950 



01953 
01954 
01955 
01956 
01957 
01958 
01959 
01960 



00001940 



0062 
0065 
0066 
0066 
0067 
0068 

0070 
0072 
0072 



0000 
0008 
0000 
0000 

0000 

0000 
0008 
0009 
0000 
0008 



1941 
1941 
1941 
1941 
1941 
1941 
1941 
1?4 1 
1941 
1941 



01951 T 0102 

01952 T 0123 



0144 
0145 
014f 
0147 
0148 
0150 
0161 
016S 



00001950 
00081950 
00001950 

00081951 
00081951 

00001951 
00001952 



GEN("*"#1*7)JX 



GENINT(CURUENGTH); GEN<%", 1,7 );X 



GENINTCCARDCNT)J GENC " )% 1 >7 )} X 



ENO OF AtFACONST ElSEX 

BEGINX 

GEN(«PWRITE( M '7#l)i GENIo<"F"'FllEl D'5); 



«ENIDC"V"*FILEID#5)J GEN (",% Xf7)t% 



GENI0( H I W ^FILEI0»5); GEN(",«, 1,7 )>% 



ustsyi*cursy;x 

expression; Fi*TYp E TABic c uRTYPE3tFORM;x 

GEN(",%1*7);X 

IF F. NUMERIC OR FLOATING OR F.CHAH OR F S A|.FA QR* 

CuRTYPE-BOOLTYPE THEN* 
BEGIN* 

IF F*NUMERIC THEN GENlNT(l) ELSEX 



IF F«FLOaTING THEN GENINTC2) El»$EX 



IF F«AUFA THEN GENINTC5) ElSEX 



IF F»CHAR THEN GENlNTU) ELSE GENlNT(3m 



GENC"*">l*7);X 

IF CURSY«COUON THENX 
BEGINX 

insymbql; EXPRESSIONS 

IF TYptTABUCURfYpEJ.FORM NEQ NUMERIC THEN ERRQRC17);X 

gen("*«m»7);x 

if cursyxcolon thenx 

BEGINX 

if f/floajing then errqruwx 
insymbol; expressionjx 



01961 T 0174 



01962 T 0227 



01963 T 

01964 T 

01965 T 

01966 T 



01967 T 

01968 T 



01969 T 

01970 T 

01971 T 

01972 T 

01973 T 

01974 T 

01975 T 



01980 T 

01981 T 

01982 T 

01983 T 

01984 T 

01985 T 

01986 T 

01987 T 

01988 T 



0280 

0280 
( 

0280 
0281 



00001956 
00001960 
\ 
00081961 

00061961 
00001961 

r 

00081962 

00001962 
00001962 



0000194? 



0311 



0332 



0353 
0354 

0356 

036S 
0366 
0369 

0370 



00001966 
00001966 

00001966 

00001967 

00001967 

i 

00061966 
00001968 



00061971 



01976 T 0416 



01977 T 0461 



01978 T 0506 



01979 T 0595 



0604 
0605 
0605 
0606 

0609 

I 

0618 
0619 
0619 
0621 



00061975 
00061975 

i 

00061976 
0000197ft 

00001977 
00001977 

00001978 
00001978 
00001978 
00001978 

0000197$ 



00061984 



if typetab1ccurtype],f0rm neq numeric then error<l7)u 
gen(">"*w)/x 

END ELSE GEN( w "l'"'3»5);j 



END ELSEX 

BEGIN* 

IF F»FLOATING THEN GENINT(16) ELSEX 



IF F»ALFA AND LASTSY»ALFACONST THEN GENINTC CURLENGTH ) ELSE 



IF F»ALFA THEN GENINT(7> ELSEX 



IF F*CHAR THEN GEnInT(I) ELSE GENlNTUOjJX 



01989 
01990 



GENC"#M*"*4*4)JX 

END** 
END ELSE ERR0R(17);X 

GENInT(CARDCNT); GEN(")%1#7)JX 

END OF EXPRESSIONS 

GEN( W J M #1'7);X 

END UNTJL CURSY*cQMMAiX 

jF CURSY*RPAR Th^N BEGjN ERRQR(46)J SKiP(RPAR) ENQJX 

if cursy«rpar then insymbqljx 
end;x 

FILENAMEI»Fl»-ElDiX 

IF LINEFEED THENX 

BEGIN*... 

INTEGER DUMMYJX 

GENC M WLlNE{ M #6#2); GENIDCF", FILENAMES); GEN<%«,l,7);x 

GENIDCV* FILENAME* 5 }; GENC"#% 1# 7 )JX 
GENID("I"*FILENAME>5); GEN<" )» , 1,7 )jX 



01993 
01994 



01995 
01996 
01997 



START 



T 0622 
T 0625 

00001990 

01991 T 0634 

0000198ft 
00061991 

01992 T 0643 
00001981 

T 0643 

T 0646 

00081994 
0000199ft 

T 0691 

00001995 
0000199$ 

T 0737 

0000199$ 
0000199* 

T 0782 

00001997 
00001997 
00001997 
00001997 

T 0871 

00001998 

T 0680 

00001993 

T 0880 

00001974 

T 0882 

00002001 
00002001 
00002001 

T 0935 

00061965 

T 0935 

00002003, 

T 0945 

00001V4* 

T 0946 

0000200§ 
T 0949 
T 0951 

00001944 

T 0951 

T 0952 

T 0953 

T 0953 
********** 2Q 

T 0000 

00002012 

00002012 
00002012 

T 0030 

00002019 
00002013 

T 0051 



01998 
01999 
02000 
02001 

02002 

02003 

02004 

02005 

02006 
02007 

02008 
02009 
02010 
02011 
OF SEGMENT 
02012 

02013 

02014 



f 

i 



END;* 

gen( w end' , #4»5>j* 
end of pwrite;x 



00002014 
00002014 

02015 T 0072 

00002010 
20 IS 74 LONG* NEXT SEG 19 

02016 T 0954 

00002016 

02017 T 0963 

00081937 
19 IS 975 LONG, NEXT SEG £ 



X 

X 

PROCEOORE FILEHANoLING(PROcNUM); 
VALUE PROCNUM; INTEGER PROCNUMJ 
BEGIN 

INTEGER F; 

CASE PRQCNUM OF 
BEGIN ; 

GEN("PUT M #3#5); 

GEN< h GET">3,5); % 
GeN(*IReSeT"»5>3); X 
GEN("REWRITE">7,1)J X 
GEN("PAGE M '4»4); X 
END; % 



GENC"CM#7); FlLEPARAM(0)i X 



%*** FILE HANDLING PROCEDURES! 

X*** 

X*** 1) PUT 

X*** 2) GET 

X*** 3) RESET 

X*** 4) REWRITE 

X*** 5} PAGE 



IF FILENAM£»0 THEN ERRQR(78)> X 

FtnTVPETABlCCURTYPEJ.FQRMJX 

IF FwFlLES AND PRQCNUM«5 THEN ERRQR(80)JX 

GENID("F W * FILENAME'S) J GENC"*"* W )*X 



GENIDCvVF RENAME^ ); GENC%% 1 ,7 )} % 



02018 


T 


0375 


02019 
02020 


T 


0375 


T 


0375 


02021 


T 


0375 


02022 


T 


0375 


02023 


T 


0375 


START OF SEGMENT 


********** 21 


02024 


T 


oooe 


02025 


T 


0006 


02026 


T 


0000 

00002026 


02027 


T 


0010 

00002027 


02028 


T 


0019 

00002028 


02029 


T 


0029 

00002029 


02030 


T 


0038 

00002030 


02031 


T 


0048 

0000202$ 


START OF SEGMENT 


********** 22 


22 IS 6 LONG, 


NEXT SEG 21 


02032 


T 


0047 

00002032 
00002032 
0000203B 
00002032 
00002032 
00002032 
00002032 
00002032 
00002032 
00002032 
00092032 


02033 


T 


0113 


02034 


T 


0115 


02035 


T 


Oil? 


02036 


T 


0120 

00002036 
0000203ft 


02037 


T 


0141 

00002037 



GENID( W I"»FILENAME>5?> GEN (%", WJJ X 



GENINT(CAROCflT)* GEN< M > "#.l* ? )'X 



IF cURSY/RPAR THEN BEGJN £RRtJR(46); SKIPCRPAR) ENO'X 

IF CURSY»RPAR THEN INSYMBOU* 
END OF FILEHANDUING>X 



00002037 

02038 T 0162 

00002038 
00002038 

02039 T 0183 

00002039 
0000203$ 
00002039 

02040 T 0235 

00002040 

02041 T 0238 

02042 T 023$ 

00002022 
21 IS 242 LONG* NEXT SEG 2 



X 
X 

PROCEDURE PACKJ* 
BEGINS! 

integer h#tjx 

gen( w packc"*5»3)jx 

insymbolix 

if cur$y*lpar thenx 

BEGIN* 

INSYMBOU* 

IF CURSY.IOENTIFIER THENX 

BEG I NX 

SEARCH;* 



IF FOUNO THENX 
BEGINX 

IF THlSIDtlOCUASSsVAR THENX 

BEG I NX 

TUTYPETABUTHISID.TYPEJU 
IF T.FORMsiARRAYS TH£NX 
BEGINX 

it»*t,inxtype;x 

IF T YPEtABUt.ARRtYPE]iFORM^CHAR THEN ERR0RC88)JX 
6ENiP.C" V , /l00q»«THlS|.EVEl-*THlSlN0EX#5)>X 

IF THISLEVEL>1 AND THISLEVEUCURLEVEI THEN ERR0R(5)^X 
GENC"' W »W}J GENlNTCTYPETAB2tTHISlDtTYP£j)iX 



GENC^'lV?); QENlNT(TYPETAB3CTHl5lDtTVPfc3)l» 



START OF 



02043 
02044 
02045 

02046 
02047 

SEGMENT 
02048 

02049 
02050 

02051 
02052 

02053 

02054 

02055 



T 

T 
T 
T 
T 



0375 
0375 
0375 

037S 
0375 



******* 
T 0000 



02056 
02057 
02058 
02059 
02060 
02061 
02062 

02063 
02064 

02065 

02066 
02067 



T 
T 
T 
T 
T 
T 
T 
T 

T 

T 



*** 23 
00002048 



0009 
0009 

0010 
0010 
OOU 
0012 
0012 



004g 

0043 
0043 

0044 
0045 
0046 
0048 

0048 
0049 

0053 



00002055 
00002055 
00002055 
00002055 



T 0066 
T 0069 



0000206S 



02068 T 0123 



00002067 
00002067 
00002067 

I 

00002068 
00002068 

00002068 



END ELSE ERRQRC88JU 
END ELSE ERRQRCeem 

END ELSE ERRQRUm 
END ELSE ERRQR(9);x 

insymboljx 

if cursy«comma thenx 

BEGINX 

GEN( w >«»l#7m 

insymbql* expression; checktypescit#curtype);» 



IF CURSY»COMMA THENX 
BEfiINX 

QEN("#">l>7m 

insyhbol;x 

IF CuRSYMDENTlFIER THENX 
BEGIN* 

search;x 



IF FQUNQ THENX 
BEGINX 

IF THISID.IDCLASS»VAR QRX 

THISl0il0CLAS5«C0NST AND BOOLEAN< THIS ID« FOrM A L ) THENX 
BEGINX 

VARIABLEI WRlTEEXPRiX 



IF QURTYPE>0 THENX 

IF TYPETABUCURTYPE],FORM*ALFA THEN ER«0R(12);X 
ENO ELSE ERRQRCSm 

END ELSE ERRORCDIX 

END ELSE ERRQRC9HX 

END ELSE BEGIN ERRQRC89)* SkIPCRPAR) ENDJX 



02069 


T 


0177 

00002062 


02070 


T 


0178 

00002059 


02071 


T 


0179 

00002057 


02072 


T 


0181 

00002054 


02073 


T 


0182 


02074 


T 


0188 


02075 


T 


018$ 


02076 


T 


0184 

00002076 


02077 


T 


0193 

00002077 
00002077 

00002077 
00002077 
00002077 
00002077 
00002077 


02078 


T 


0253 


02079 


T 


0253 


02080 


T 


0254 

00002080 


02081 


T 


0263 


02082 


T 


0263 


02083 


T 


0264 


02084 


T 


026$ 

00002084 
00002084 
00002084 
00002084 


02085 


T 


0294 


02086 


T 


0294 


02087 


T 


0294 


02088 


T 


0296 


02089 


T 


0296 


02090 


T 


029* 

00002090 
00002090 
00002090 
00002090 
000Q2090 
00002090 
00002090 


02091 


T 


037ft 


02092 


T 


0379 


02093 


T 


0382 

00002069 


02094 


T 


0383 

00002061 


02095 


T 


0365 

0000208jf 


02096 


T 


0386 

00002079 
00002096 



end else begin error(89); skip(rpar) end;x 



IF CUR5Y*RPAR THEN BEqIN ERRQR(46)J SKlP(RPAR) ENQJX 

IF CURSYwRPAR THEN INSYMBOLJX 
END EuSE BEGIN ERRQROJJ INSY M B0L EnOJX 



GENC",",1,7)J GENINT(CAROCNT); GEN(" > m #1* 7 )t% 



ENO of pack;x 



02097 T 0388 

000020/J 
00002097 

02098 T 0390 

00002098 

02099 T 0393 

02100 T 0394 

00002051 
00032100 

02101 T 0397 

00002101 

00092101 
00002101 

00002101 

02102 T 0459 

0000204$ 
23 IS 465 LONG* NEXT SEG 2 



X 

proceoure unpack;* 

BEGINX 

INTEGER IT,T>X 

GEN("UNPACkC%7,1); insymbqlu 

if cursy«lpar thenx 
beginx 
insymbolj expressions „ . 

IF CURTYPE>0 THEN IF tYPEtABi c CURtYPEJ ,fqrm*alfa T HEN ERRQR ( i7); 

if cursy»comma then* 

BEGINX 

genc"* h >i>7}; insymbol;x 

IF CURSYMDENTIFIER THENX 

beginx 

SEARCH^ 



IF FOUND THENX 
BEGINX 

IF THISID,IQCLASS»VAR THEN* 
BEGINX 

TI»TYPETABHTHlSlQ,TYPem 
IF T»FORM*ARRAYS THENX 
BEGINX 

iti«t,inxtype;x 

if typetabict, arrtype j ,fqrm*char then errarc88)*x 

IF THIS J .EVEL>1 AND THIS L £VEl'CURlEVEL t HEN ERR'0R(3)|* 
GENID( W V W *1000>«THISLEVEL*THISINDEX#5);* 

GEN <"»"#! #7 )J GfcNlNTC TYPE TAB2CTHI SID, TYPE3)U 



START OF 



02103 
02104 
02105 
02106 
02107 
SEGMENT 
02108 

02109 
02110 
02111 
02112 
02113 
02114 
02115 

02116 
02117 
02118 



0375 
0375 
0375 
0375 
0375 



********** 



24 



T 0000 



T 
T 

T 
T 

T 
T 

T 

T 
T 
T 



02119 
02120 
02121 
02122 
02123 
02124 
02125 
02126 
02127 
02128 
02129 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0009 
0010 

ooie 

0011 
0015 
0016 
0017 
( 

0026 
0027 
0027 



00062108 



00002115 



00092118 
00002118 
00062118 
00002118 



0057 
005Q 
0058 
0059 
0068 
0061 
0063 
0063 
0064 
0068 
0071 



02130 T 0084 



0000212» 



GENC"#«*1>7); GENlMCTYPETAB3CTHISIDtTYPEjm 

END ELSE ERRQR(88)JX 

END ELSE ERK0R<88)U 

END ELSE ERRORCDiX 

END ELSE ERRQRC9)JX 

INSYMBOL^X 

IF CURSY-COMMA THENX 

BEGINX 

GEN<"»"* W)jX 

INSYMBQLJ EXPRESSION; CHEC*TYPeS ( IT* CURTYPEJJX 



END ELSE BEGIN ERRQRC89)* SKlP(RPAR) ENDJX 



END ELSE BEGIN ERRQR<89); SKlP(RPAR) ENDJX 



IF CURSY/RPAR THEN BEGIN ERRQRC89); SkIP(RPAR) EnDJX 

if cursy.rpar then insymbql;x 
end else begin errorc3)/ insymbql endjx 



6EH(»*n>lf7>> genintccardcndj GEN(")"*l#7m 



end of unpackjx 



00002130 
000*2130 

00002130 

02131 T 0138 

00092131 
00082131 
00082131 

02132 T 0192 

0009212b 

02133 T 0193 

00092122 

02134 T 0194 

00002120 

02135 T 0J96 

00002117 

02136 T 0197 

02137 T 0197 

02138 T 0198 

02139 T 0199 

0000213V 

02140 T 0208 

00002140 
00092140 
00002140 
00002140 
00002140 
00002140 
00092140 

02141 t 0268 

00092138 
00092141 

02142 T 0270 

00002114 
00002142 

02143 T 0272 

00002143 

02144 T 0274 
Q2145 t 0276 

00002110 
00082145. 

02146 T 0278 

00002146 
00092146 
0000.214$ 
00002141 

02147 T 0340 

00002106 
24 IS 344 LONG* NEXT SEG 2 



X 

X 

procedure newoisp; 

BEGINX 

INTEGER TUX 



X*** "NEW^'DISPOSE" 



02148 T 

02149 T 

02150 T 
021.5.1 T 
02152 T 



0375 
0375 
0375 
0375 
037J 



IF CURNAMEi«"30QQNEW" THEN GEN("NEW («,4> 4 ) ELSEX 
BEGIN GENC«DlSPQSE">7#l>J GENC"<", \,J) ENDiX 



INSYMBQL** 

IF cursy*lpaR THENX 

BEGIN* 

INSYMBOU;* 

IF CURSY, IDENTIFIER THENX 
BEGINX 
SEARCH;X 



IF FOUND THENX 
BEGINX 

VARIABLES 

IF CuRTYPE>0 THEN IF TYPETAB 1 [CURTYPE J ,FORM»PQINTERS THENX 

BEGINX 

WRITEEXPRJ GENCS"* 1#7)U 



Til*TYPETABi[CURTYPE3tPOlNTTYPEiX 

Tll«TYPETABltTl3,SlZEjX 

IF TU1Q23 THEN ERR0KCe6>*X 

GEN1NTCT1); GEN(") W U'7);X 



END Et 5 E ERR0R(8i);x 
END ELSE BEGIN ERROR(i); INSYMBQL END;x 



end Else error<9)*x 

while. cur§y«comma dp* . 

begin insymbolu 

if cursy ne« identifier then error(9m 
if cursy neq rpar then insymboljx 

endjx 

END ELSE BEGIN ERRqR(59);SKlPcRPAR) ENOJX 



IF CURSYfRpAR THEN BEGIN ERRpR(46); SKIPCRPAR) ENDJ* 



START OF SEGMENT 


********** 25 




02153 


T 


oooe 

00002153 




02154 


T 


ooie 

00002154 
0000215* 
00002154 




02155 


T 


0031 




02156 


T 


0031 




02157 


T 


0032 




02156 


T 


0032 




02159 


T 


0033 




02160 


T 


0034 




02161 


T 


0034 

00002161 
00062161 
00062161 
00062161 




02162 


T 


0064 




02163 


T 


0065 




02164 


T 


0065 




02165 


T 


0066 




02166 


T 


0066 




02167 


T 


0069 

000§2l6f 
00002167 
00062167 
00002167 
00002167, 
00002167 

00002167 
00002167 




02166 


T 


0156 




02169 


T 


0158 




02170 


T 


0159 




02171 


T 


0161 

00002171 
00002171 
00032171 




02172 


T 


0214 

00002166 




02173 


T 


0215 

00062163 
00002173 




02174 


T 


0217 

00002160 




02175 


T 


0218 




02176 


T 


0226 




02177 


T 


0220 




02176 


T 


0222 




02179 


T 


0224 

0000217ft 




02180 


T 


022$ 

00002157 
00082180 



02181 T 0227 



00002181 



IF cursy»rpar then 

END OF NEWDJSPJX 



INSYMBOIJX 



02182 
02183 



022$ 
0231 



25 IS 234 LONG* NEXT 



00002151 
SEG 2 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%x%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
* * 

x X 

x X 

X PART 61 THE STATEMENT PARSER, % 

X % 

x % 

x % 

x X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 
X 
X 

PROCEDURE STATEMENTS FORWARD'S 

X 

PRQCEOURE ASSIGNMENT** 

BEGINX 

integer uefttype;x 

uabei assign>exit;x 
if fquno thenx 

BEGINX 

IF THlSlDtlDCUASS»VAR ORX 

THISId,IDClASS»CqnST ANO BOOLEAN(THISIDtFORMAU) THENX 
BEGINX 

variable; uefttypeucurtypejx 
assign! if cursvassignsy thenx 

BEGIN ERRQRC28); SkIp< aSSUnSY j;X 

if symkin0ccursyj«terminal then go to exlm 
end;x 

insymbou;x 

if typetabulefttypej,st«uCt>o thenx 

BE8INX 

ERR0R(95);X 
ENO ELSEX 

BEGINX 

wrHeexpr; genc"» s "*2'6);x 



START QF 



IF CHECkOPTION AND TYpETABHtEFTTYpE],F0RM$CHAR THEnX 
CHECKEXPRCTYPETAB2CtEFTTYPE3»TYPETAB3CLEFTTYPE]) ELSEX 



02185 T 


0375 


02186 T 


0375 


02187 T 


0378 


02188 T 


0375 


02J89 T 


0375 


02190 T 


0375 


02191 T 


0375 


02192 T 


0375 


02193 T 


037 5 


02194 T 


0375 


02195 T 


0375 


02196 T 


0375 


02197 T 


0375 


02198 T 


0375 


02199 T 


0375 


02200 T 


0375 


02201 T 


037J 


02202 T 


0375 


SEGMENT * 


********* 2<S 


02203 T 


oooe 


02204 T 


oooo 


02205 T 


0000 


02206 T 


oooo 


02207 T 


0002 


02208 T 


0004 


02209 T 


0005 


02210 T 


0006 


02211 T 


0007 


02212 T 


oooi 


02213 T 


0011 




00002211 


02214 T 


0011 


02215 T 


0011 


02216 T 


OOU 


02217 T 


oois 


02218 T 


0014 




00002216 


02219 T 


0014 


02220 T 


0015 




00002220 




00002220 




00002220 




00002220 




00002220 




00002220 




00002220 




000Q2220 


02221 T 


0102 


02222 T 


01 04 




00002222 




00002222 




00002222 




00002222. 




00002222 




00002222 




00092222 




00002222 



expression;* 
writeexpr;* 



02223 T 

02224 T 



CHECKTYPESCLEFTTYPE#CUKTYPEm 



end;* 

END El.SE* 

BEGIN % FUNCTION ASSIGNMENT, 

IF TMIsLEvEL«uRLE'v'EL"i OR T HI sINDEXKCuRFjjNC T H EN ERR0RC5);* 
GENlD{«VM000xTHlSLEVEt*THlSlNDEX*5); LefTT YP fc l*THlSlO ,TYP E ; X 



insymbol; 

ENDU 
END ELSE* 



BEGINS! 

SKlPUSSlGNSYm 
IF cURSYnASSlGNSY 

end;* 



GO TO ASSIGNS* 



02228 
02229 
02230 

02231 
02232 



THEN GO TO ASSIgNU 



02234 
02235 
02236 
02237 



0183 
0184 



00002222 
00062222 
0000222? 
00092222 
00002222 
00062222 
000Q2222 
00062222 
00062222 
00002222 
00002222 
00002222 
00002222 

00062222 
00062222 

00002222 
00062222 

00062222 
00062222 
00002222 
00062222 
00002222 



02223 T 0262 



02226 T 0322 

i 

02227 T 0322 



0322 
0323 
0321 

i 

0340 
0341 



00062224 
00062224 
00062224 

00062224 
00002224 

00002224 
00002224 

00002223 
00062225 
00002221 
0000222k 
0000222§ 
00002221 
00002225 
j 

00002219 
00002208 



00062230 



00062228 



02233 T 0341 



341 
0343 
0343 

034? 



00002205 



00062234 



EXIT IX 

END OF assignment;* 



2* IS 



02238 T 034J 

02239 T 0345 

00002201 
352 LONG, NEXT SEG 2 



X 

X 

PROCEDURE CQMPSTATU 

BEGIN* 

INTEGER BEGINNUMJX 

LABEL statm;x 

X 

beginnumunumbeginsunumbegins+i; 

GENC"8EGlN»#6#3m 



MARGINO B«* # BEGINNUM)JX 



DO BEGINX 

IF cURSY«SEMlcOt,ON OR cU H SY*BEGlNSY THEN INSYMbOL;* 

statmi statement;* 

geN( w ;",i#7);x 

if cursy*elsesy then begin errqr(20>; insymbol; go statm eno;x 

IF §YMKINDCCURSY3»INIT1AL THEN BEGIN ERRQR( 2 i)i GO STATM ZHQiX 

END UNTIL CURSY*SEMICQLQN;X 

IF CURSY^ENDSY thenx 

BEGIN £RR0R(24); SK IP(eNqSY ); * 

IF cursy/Endsy then begin inSymbol; go to statm eno;x 
end;x 

GENC" END%5'4)i mARGInC" E n # BEGInnUm)/* 



insymbql;* 

END OF COMPSTAtJX 



02240 


T 


0375 


02241 


T 


0379 


02242 


T 


0375 


02243 


T 


0375 


02244 


T 


0375 


start of segment 


********** g? 


02245 


T 


0000 


02246 


T 


0000 


02247 


T 


0000 

00002247 
00002247 


02246 


T 


0020 

00082248 


02249 


T 


0029 


02250 


T 


0029 


02251 


T 


0031 


02252 


T 


0032 

00082252 


02253 


T 


004i 

00002253 


02254 


T 


00002254 


02255 


T 


0Q4« 

0000224$ 


02256 


T 


0051 


02257 


T 


0051 


02258 


T 


0053 

00002256 


02259 


T 


0056 

00082257 


02260 


T 


005* 

00002260 
00002260 

00002260 


02261 


T 


0083 


02262 


T 


008$ 

00002243 


27 IS 88 LONG 


> 


NEXT SEG 2 



X 

X 

PROCEDURE... IFSTAT; X 
BEGINX 

LABEL EXIT;X 
6ENriF M f3,6);X 







02263 

02264 


T 
T 


0375 
0375 






02265 
02266 


T 
T 


037§ 
0375 


STA8T 


OF 


02267 
SEGMENT 


T 0375 

********** 






02268 


T 


0000 



28 



INSYMBQU BQOLEXPRJX 



02269 T 



IF CURSY/THENSY THENX 
BEGIN IF CURTYPE>0 THEN ERRQH(27)U 
SKIP(THENSY)JX 

IF CuRSY/THENSY THENX 

8E6IN IF CURTYP£«0 THEN ERRQR(27);X 

IF SYHKINDCCURSY3»TERMINAU THEN GO TO ExITiX 

end; end;x 



GEN( w THEN"»6,3)JX 

insymbOi; statement;* 

IF CURSY"ELSESY THENX 

BEGIN GENC ELSE w *6#3); INSY«BOL; STATEMENT EN0;X 



EXITIX 

end of ifstat;x 



02270 
02271 
02272 

02273 
0227ft 
02275 
02276 



02277 T 

02278 T 

02279 J 

02280 T 



02281 T 

02282 T 



28 IS 146 IQNG# 



00002268 
0009 

00002269 
00002269 
0000226J 

0000226V 
00002269 
00002269 
00002269 
0009226V 
0000226V 

0000226V 
0000226V 
0000226V 
00002269 
00002269 

0000226V 
0112 
0113 
0115 

oiu 

0117 
0119 

0121 

00002274 
00002271 

0121 

00082277 

0130 

0131 

0132 

00002280 
00002260 

0142 

0143 

00002266 
NEXT SEG 2 



X 

X 

PROCEDURE CASESTATU 

BEGINX 

DEFINE CASEHASHCN)«(N)a3 8 l393 MOD MAxCASESfJX 

INTEGER ARRAY CASETABCO jMAXCAsES) 1% 

INTEGER CASENUM/CaSETYPe*NcaSEUaBS»TEMPV A RNUM,cONVaL#cQNTYPE#C'TU 

boolean zerqiab,first;x 

X 

caSenumi«numCasesi.numcases*i; margin<"CB",casenumj;% 

tempvarnum|«numtemps!«numtemps+1jx 

if tem*varnum>maxtemps then ERRQR(U);X 

GENC"BEGIN«,6,3); genioc«t w #tempvarnum#2); GEN("l*%2,6);x 



02283 T 0375 



02284 
0228b 
02266 
02287 

start of segment 

02286 
02289 
02290 
02291 
02292 



02293 

02294 
02295 



T 0375 
T 0375 

T 0375 
T 03/5 

********** 



2V 



0000 
OOOl 

oooi 

OOOl 
OOOl 



0021 

0025 

0025 



0000229| 
00002292 



insymbqu expression;* 
genc"J"#1'7)J casetypei«curtype;x 

if typetabhcasetypej.fqrmifuoating 

BEGIN ERROr<17)> CASETYPEI a O ENQ;X 



THEN% 



IF cursyxofsy THENX 

BEGIN IF CASETYPE>0 
SKlP(OFSY)U 
IF CURSY'OFSy 

IF casetypebq 

END ELSE INSYMBOU^* 



THEN ERRQRCiam 

THEN INSyMBOL EL$E* 
THEN ERR0RU8m 



DO INSYMBQL/X 



00 BEGIN* 

WHILE CURSY«SEMICOLQN 

FlRSTl«TRU£;X 

IF CURSY/ENDSY THEN* 

BEGIN* 

GENC"lF">3#6)>* 



DO BEGIN* 

IF FIRST THEN FlRSTl*FAL»E ELSE 
CONSTANT CCQNVA L ,C0NTYPE)JX 



INSYMBOLU 



IF contype>o THEN* 

BEGIN* 

IF CASETYpE»0 THEN CASETYpE J'CQNTYre ELSE* 

checktypes(casetype#contype>;x 



02296 T 

02297 T 

02298 T 

02299 T 



02300 
02301 
02302 
02303 
02304 
02305 

02306 
02307 
02308 
02309 
02310 
02311 



02312 T 

02313 T 

02314 T 



02315 T 

02316 T 

02317 T 

02318 T 



0055 
0056 

I 

0066 

006F 

I 

0069 
0070 

0073 
0073 
0075 
0060 
i 

0081 
0081 
0088 
0084 
0084 

0085 

I 

0094 
0095 
0098 



00002295 
00092295 
00002295 



00002297 



00002299 



00002301 



00002311 



0186 
0186 
0187 
0189 



00082314 
00002314 
00002314 
00002314 
00002314 
00002314 

00002314 

000023U 
00002314 

00002314 
00002314 
00002314 
00002314 
00002314 
00002314 
00002314 
00002314 
00002314 
00002314 



GENID("T"»TEMPVARNUM*2); GENC »*»f It 7)1 genintcconval)** 



02319 T 0249 



00002318 
00002316 
00002318 
00002318 
00002318 
00002310 
00002318 



NCaS£LABSI*NCASELAB_SUJX 
IF NCASELAB5<MAXCAStS THENX 

BEGINX 

IF CONVAL'O.IMEN* 

IF 2ER0LAB THEN ERRORC31) ELSE ZERQlABHTrUE ElSEX 
BEGINX 

Tl»CASEHASH(CQNVAl)fX 

FOR CinCASETABCTJ WHILE CXCONVAL AND C>Q DOX 

Ti*IF T«0 THEN MAXCASeS ELSE T-ljX 

IF C*0 THEN ERRQHC31) ELSE CAgETABC TJ «»C0NVAL; X 
END^X 

END ELSE IF NCASELABS«MAXCASES THEN ERRQR(3Q);X 

IF CURSY*COMMA THEN GEN(" DR"#4*5);X 

ENOU 

END UNTIL CyRSY^COMMA;X 

GENC" tHEN m #6,3);x 

IF CURSy/COLON THEN BEGIN ERRQRC26)* SkIPCCOLON) END** 

IF CURSY»CQLON THEN InSYMBQl'X 
STATEMENT;* 

IF CURSY^SEMICOLON AND CUrSY^ENoSY THENX 

begin er«0r(2l)i s.kipcsemjcoion) endjx 

end;x 

IF CURSy.SEMICOLON THEN GENC ELSE",6, 3 )J % 
END UNTIL CURSY*SEMICQLQN;X 

IF CUrSY'EnDSY THEN BEGIN ERR0RC24); SkIPCENDSY) ENDiX 
GEN( W lND w #5*4)i MARGIN("CE W *CASENUM);X 



numtempsi«numtemps-i;x 

INSyMBOLJX 

end cf casestat;x 







0000231S 






00002319 






00002319 






00002319 


02320 


T 


0313 


02321 


T 


0314 


02322 


T 


0315 


02323 


T 


0315 


02324 


T 


0316 


02325 


T 


0319 
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T 


0326 


02327 


T 


Q32* 


02328 


T 


0326 


02329 


T 


0329 


02330 


T 


0338 

00002325 


02331 


T 


0333 

00002322 


02332 


T 


0336 

00062332 


02333 


T 


0346 

00002316 


02334 


T 


034^ 

00062312 


0233d 


T 


0347 

00002335 


02336 


T 


0350 

00002336 


02337 


T 


0359 


02338 


T 


0361 


02339 


T 


036} 


0234o 


T 


0363 

00002340 


02341 


T 


0365 

00002310 


02342 


T 


0365 

00002342 


02343 


T 


0375 

00002306 


02344 


T 


0376 

00002344 


02345 


T 


037? 

00062345 
00092345 
00002341 


02346 


T 


0406 


02347 


T 


040| 


02348 


T 


0406 

00002286 


3 LONG 


t 


NEXT SEG 2 



X 
X 

procedure whilestat;x 



02349 T 0375 

02350 T 0375 

02351 T 0375 



• 



BEGIN* 

LABEL STATM,EXIT;X 

GEN("WHILE">6,3m 

iNSyMBOLi BOOLEXPRJX 



02352 T 

02353 T 
START OF SEGMENT * 

02354 T 

02355 T 



IF CURSYj<D05Y THEN* 

BEGIN IF CURTYP£>0 THEN ERRQR(19)jX 

SKIP(OQSY);* 

IF CURSY^UOSY THENX 

BEGIN IF CURTYPEaO THEN ERRQRU9)JX 

GO TO iF SYMKiN0tCURSY3«iNiTjAL THEN STATM ELSE EXjT^X 
END; ENDJX 



GENC" DQ"#4,5>>X 

insymbol^x 
statmi statement;* 

EXI T *X 

END OF whilestatjx 



02356 
02357 
02358 
02359 
02360 
02361 
02362 



02364 
02365 
02366 
02367 



02363 T 



30 IS 142 LONG* 



0375 

0375 
********* 30 

0000 

00002354 

0009 

00002355 
00062355 
00002355 
00002355 
00002355 
00002355 
00002355 
00002355 
00002355 
00002355 
00002355 
00002355 
00002355 
00002355 
00002355 

0H2 

0113 

0115 

0116 

0117 

0119 

0125 

00002360 
00002357 

012$ 

00002363 

0134 

0134 

0135 

0136 

00002352 
NEXT SEG 2 



X 

% 

PROCEDURE REPEATSTATJX 

BEGINS 

INTEGER REPNUMf X 

LABEL NEWTRYJX 
X 

REPNUM|»NUMREPS|»NUMREP$+UX 
MARGINC" R"*REPNUM)#X 



GENC "DO", 3,6 )J GENC "BEG I N",6,3 ); X 



START OF 



02368 
02369 
02370 
02371 

02372 
SEGMENT 
02373 
02374 
02375 
02376 



0375 
0375 
0375 
0375 
0375 



********** 



31 



T 
T 

T 
T 



oooe 
oooo 

0000 
0001 



02377 T 0020 



0000.237$ 
00002376 
) 

00002377 
0000237? 



00 BEGINS* 

INSYMBOIJX 
NEWTRYI STATEMENT;* 

GEN("J"#l#7m 

if cursy«elsesy then begin errorc20); insymbol* go nehtry endjx 
if symklndtcursy]«lnltul then begin err0r(21); go newtry enojx 
end until cursy*semicql0nu 

IF CURSYXUNTILSY THENX 
BEGIN* 

ERROR ( 22 ) I X 

HHlLt CURSY/UNTILSY ANo SYMK JNQC CURSY JX IN IT IAL qQ% 

BEGIN INSYMBOL; SKIP(UNTILSY) ENDJX 

IF CURSYXUNTILSY THEN GO TO NEWTRYU 

eno;x 

genc" tnd%5»4); gen("until"'6#3); marginc" u"*repnum)*x 



INSYMBOL^ BOOLEXPR/X 



END OF REPEATSTAT;X 



02376 T 

02379 T 

02380 T 

02381 T 

02382 T 

02383 T 



02385 
02366 
02387 
02388 
02389 



02390 T 

02391 T 



003a 
0038 

0038 

0039 

0048 

0055 



02384 T 0057 



0059 

0059 

0060 
0061 

0063 
I 

0065 
0066 



0009238} 

00062382 
00002369 
00002378 



00002369 



02392 T 0066 



02393 T 0102 



02394 T 0208 
31 IS 211 LONG* NEXT 



00002386 

00002392 
00002392 

00082392 

00002392 

p 

"00082393 
00082393 
00082393 
00002393 
0000239^ 
00002393 
00002393 
00082393 
0000239§ 

00002393 
0000239J 

00082393 
00002393 
00002393 
00002393 

00002371 

SEG 2 



X 
X 

PROCEDURE FQRSTAT;X 
BEGINX 

INTEGER VARTYPE'VARNUM#LLlM»ULlMIX 

BOOLEAN DOWNJX 
LABEL STATMJ* 



START OF 



02395 


T 


0375 


02396 


T 


0375 


02397 


T 


0375 


02398 


T 


0375 


02399 


T 


0375 


SEGMENT 


********** 


02400 


T 


0000 


02401 


T 


0000 


02402 


T 


0000 



32 



GEN("BEGIN"#6#3);X 
INSYMBQUX 

IF cursy«ioentifier thenx 

BEQlNX 

search;x 



IF FOUND THEN* 

BEGINX 

VARNUMt»1000xTHISLEVEU*THlSlNOEXiX 
IF THISIDtlDCUASS*VAR OR* 

THISID.IOCLASS.CONST AND BOQLEAN(THISIDtFORMAL) THENX 
BEGINX 

IF ThJSi,EVE| b >1 AND THl3tEVEU<CURLEVEt, THEN ERRQRC5);X 
IF THISLEVEL>CURLEVEl THEN ERR0RC83)iX 

VARTYPEI*THISID,TYPEJX 

IF TYPETABltVARTYPE]fFQRMSCHAR THENX 

BEGINX 

LLIM«»TYPETAB2CVARTYPE3; ULlM« «TYPETAB3[ VAHtYPE 3 J X 
END El s E. BEGIN £RRQR(i2); VARTYPe»*0 eNo>* 



END ELSE ERR0R(8);x 
END ELSE ERRQRCn** 
END ELSE Err0r(9>;X 

insymbQl;x 

if cursy^assignsy thenx 

begin eRR0rc28>/x 

skip{assignsy);x 

if cursy»asslgnsy then insymbql elsex 
if symkinuccursy]*initial then go tq statmjx 
end else in5ymbqljx 

GENID( H V w *vARNUM»5)j G£N( w *% it 7 )> X 

IF C HEC KOp TlON TH£N CHEC K E^P K (LL IM#uL JM ) E LSe EXPRESSIONS 



02403 T 0000 



02404 
02405 
02406 
02407 



02408 
02409 
02410 
02411 
02412 

02413 
02414 

02415 
02416 
02417 

02418 
02419 
02420 



02421 T 

02422 T 

02423 T 



02424 
02425 
02426 
02427 

02426 
02429 

02430 



0009 
0009 
0010 
0010 



00002403 



QQ«0 
0041 
0041 

0043 
0044 

0047 
0047 

0056 
0052 
0053 
0055 
0055 
005? 



0000240Z 

00002407 
00002407 

00002407 



0059 
< 

0061 
i 

0062 



OO63 
0064 
0064 
0066 
0066 
0068 

0070 



00002418 
00002420 
) 
00002413 

00002409 
> 

00002^06 



02«31 T 0071 



02432 T 0092 



00002426 

00002431 
00002431 

00002432 
00002432 
00082432 

OOO02«3§ 
00062432 

00082432 
00002432 
00082432 
00062432 

00082432 
00082432 
00002432 
00082432 
00082432 



WRIJEEXPRU 



02*33 T 0170 



GENC";%1,7);% 

IF VARTYPE»0 THfc N VARTYpE l«CURTYpE ElSE CHEC«TYpESC V ARTYpE* CURT YpE ); 



02434 T 

02435 T 



NUMTEMPSJ»NUMTEMPs*iJ jF NUMTEMPS>MAXTEMPS THEN ERR0R(i6);» 

if cursy.tqsy then insymbol elsex 

if cursy*downtosy then begin oowniotRue; insymbol end eusex 

begin if curtype>0 then errqhc23);x 
skip(t0sy);x 
if cursy«tosy then insymbol e^sex 

BEGIN IF CURTYPe-0 TH£N ERRQR(23)jX 

IF SYMKINDCCURSY3*INITIAI THEN GO TO STAtMJX 
END/ END'X 



GENI0( M T w #NUMTEMPS#2j; GEN( "«•"> W }JX 



IF CHECKOPtION THEN CHECKEXPRUUM#UllM) ELSE EXPRESSIONS 



02436 T 

02437 T 

02438 T 



02439 
02440 
02441 
02442 
02443 
02444 



0248 

i 
0257 



0319 
0322 
0324 

I 

0327 
0329 
0330 
0332 
0334 

0336 



00002432 
00062432 

00002432 
00002438 
00002432 
00002432 
00002432 
00092432 
00002432 
00002432 
00002432 
00002432 
00002432 
00002432 
00002432 
00062432 

) 

00002439 
00002433 
000Q2433 
00002439 
0000243? 
00002438 
00062433 

) 
00002434 

0000243$ 
00002431 
00062435 
00062435 
00002435 
00002435 
00002435 



00002436 



02445 T 0336 



Q2446 J q357 



0000244J 
00002435? 
i 

00002445 
00002445 

00002446 
00062446 
00002446 
00062446 
00002446 
00002446 
0000244* 



writeexpr;* 



02447 T 0434 



GEN(";",1#7);X 

IF Va«TYPe»0 THEN Va r TYP E I» C URTYPe e^se chec k typesiv a rtype*c*J rtyp e?' 



02448 T 
0244V T 



IF CURSY*D0SY THEN* 

BEGIN IF CURTYPE>0 THEN ERRQR(19)jX 
SKIP(D05Y)'X 

if cuRsy-dOsy then insymbol eise* 
if curtype»0 then errqhu9);x 

END ELSE INSYMBpUX 

GEN( w FQR m m»5)' GENlDC " V"* VARNljM, 5)J GENC "«.«, \> 7)i % 



GENrDC"V*#VARNUM#5); GENC *,l,7)l% 



IF pOWN THeN GENC"DQWNTQ w #7#2) else genc w upto h #5#4);x 



02450 T 

02451 T 

02452 T 

02453 T 

02454 T 

02455 T 



02457 J 

02458 T 



0512 

l 
0521 



0583 
0583 

0581 
0587 
0588 
0591 



00002446 
00002446 
00082440 
00002446 
00002446 
00002446 
00002446 
00002446 
00002446 
00002446 
00002446. 
00062446 
00082446 
00092446 

00002446 
00082446 
00002446 
00002446 
00002446 
00002446 
00002446 
00002446 
00002446 

00002447 
00082447 

00002447 
00082447 
00002447 
000^2447 

00002447 

i 

00082446 

00002449 

00002449 
00002449 
000Q2449 
00002449 
00002449 
00002449 



02456 T 059g 



062g 



0643 



00002451 
i 

'00002456 
00082456 
0000245$ 

i 

0000245? 

00082457 

I 

00002456 



genidc m t"#numtemps#2); genc" og M #4*5);x 



STATMl STATEMENTS 

GENC END"*5#4)JX 



NUMTEMPSlwNUMTEMPS*i;X 
ENO OF FQRSTATJX 



00002459 

02459 T 0665 

0000245f 
0000245V 

02460 T 0686 

02461 T 0666 

00002461 

02462 T 0695 

02463 T 0696 

00082398 

32 IS 703 LONG* NEXT 8EG 2 



X 
X 

PROCEDURE GOTOSTATJX 
BEGINX 

INTEGER lf% 

INSYMBQUX 

IF CURSY»»lNTCONST thenx 

begin i»»numiabs;x 

KHlUE 121 AND tABTABtU.LABvAL/CuRvAL DO ILI-UX 
IF I»0 THtN ERRQRU5)** 
GENC"GQ",3,6); GENIDC "L%CURVAL#4 )} X 



insymbqux 
end else errqruo);x 

end of gotostat;x 



START OF 



02464 
02465 
02466 
02467 
02466 

SEGMENT 
02469 
02470 
02471 
02472 

02473 
02474 



02475 
02476 



0375 
037S 
0375 
0375 
375 



********** 3g 



0000 
0000 
0001 
0002 

0007 
0009 



0030 
0031 



00002474 
00002474 



02477 T 0033 



00002471 

i 
00002467 



33 IS 36 LONG* NEXT SEG 



X 
X 

procedure withstat;* 

BEGINX 

integer startlevel*veRYfiRstwith$ym*i;x 

real d;x 

startleveli«tqplevelj veryfirstwithsymunwithsymsjx 

00 BEGINX 
INSYMBOLJX 

IF CURSY»IDENTIFIER THENX 
BEGINX 
SEARCH;* 



IF FOUND THENX 



02476 
02479 
02460 
02481 
02482 



0375 

0375 

0375 

0375 
0373 



START OF SEGMENT ********** 



02483 
02484 

02485 
02486 

02487 
02488 
02489 



0000 
0000 
OOOi 
0002 
0002 
0003 

0003 



3ft 



02490 T 0038 



00002489 
00002489 
00002489 
00002489 



BEOINX 

IF THISID.IDCUSS*VAR THENX 
BEGIN* 

VARIABLES 

IF cURTYP£>Q THENX 

IF TYPETAB1CCURTYPE3*FQRM*RECQRD THEN ERRQK(98);x 

IF SIMPLEVARIABLE THENX 

BEGIN PUTSYMC"C")J INSIDE8RACKETS I *TRUE END*% 



IF TOPLEVEl<MAXLEVEl THENX 
BEQINX 

T0PLEVELI*T0PIEVEL*UX 

D ,NAMETABl«TYPETABUCURTYPE3 f RECTAB;X 

DiRECTYP|»»CMRTYPE>X 

D t NUMPNTRSlNWITHl«NUMPOINTERS;X 

D.FIRST«ITHSYMI«NWITHSYMS;X 

D f BRACKETSlNWlTH|*REALCIN$IDEBRACKETSm 

IF nWITHSYmS* N UmSYmS>mAXWiTHSY M 5 THEN ERRORS) ELSeX 

FOR Il"l STEP 1 UNTIL NUMsYMS DOX 

BEGIN* 

withtabcnwithsyms3»*symtabci];x 
nwithsyms»»nwiThsyms+i;x 

ENDJX 



d»lastwithsymi»nwithsyms-hx 

DlSPLAYtTOPLEVEL3l»D;x 

end else errqr(84>;x 

END ELSE BEGIN ErrQr<8)j INSYMBOL ENDiX 



end else begin errorcd; insymbol end;x 



end else begin error<9); insymbol end;x 

NUMSYmS|»OjX 

NUMPOINTERS I* Q*% 

END UNTIL CURSY/CQMMAJX 

IF CURSY^DOSY THENX 

BEGIN ERRQR<19)J SkIPCDOSy^X 

if cursy*posy then insymbol; x 
end else insymb0l;x 



END 



statements 
topleveli-startlevel; 
of withstat;x 



02491 
02492 
02493 
02494 
02495 
02496 
02497 
02498 



02499 
02500 
02501 
02502 
02503 
02504 
02505 
02506 
02507 

02508 
02509 
02510 

025U 
02512 



nkithsymsi»veRyfirstwithsym;x 



02513 T 

02514 T 

02515 T 

02516 T 



02517 T 



02518 T 



02519 T 

02520 T 

02521 T 

02522 T 

02523 T 
02584 T 

02525 T 

02526 T 

02527 T 

02528 T 

34 IS 93 LONG, 



0032 

0032 

0034 

0034 

0035 

0035 

0039 

0039 

00092498 
00062498 
00002498 
00002498 

0048 

0048 

0049 

0050 

0053 

0054 

0056 

0058 

0060 

0062 

OO64 
0064 

0065 
0066 

00002509 
0069 
007j 
0072 

00002500 
0073 

00002493 
00002516 

0075 

00002491 
00002517 

0077 

00002488 
00002518 

0079 

0079 
0080 

00002485 
0081 

0082 

0084 
0086 

00002523 
0087 

008? 
0089 

00002481 
NEXT 5£G B 



X 
% 

PROCEDURE STATEMENTS 
BEGINX 

INTEGER UX 

LABEL LABFQUNO;* 



START OF 



X *** LABELED STATEMENT *** 



IF CURSY'lNTCONST THEN 

BEGINX 

FOR Il*FlRSTLAB STEP 1 UNTIL NUMLABS OOX 
IF LA8TABCIJ.LABVAL*CURVAL thenx 

begin if labtabci j«la8def*l then errqrc31);* 
labtabU3.labdefi»i;x 
go to labfoundu 

ENDU 

ERR0R(15);% 
LABfOUND' «ENlDC , L M *CURVAL,4); GEN( "I %i ,7 )i % 



iNSYMBOLiX 

if cursyxcolon thenx 
begin err0r(26);x 

SKiP(cOLON); IF cURSYsgOLON THEN iNSYMeQLj* 
END ELSE INSYMBOLJX 



X 

X 



End;x 



COMMENT *** START OF STATEMENT *** ;X 

IF CURSY»IDENTIFIER THENX 
BEGINX 

search;* 



IF FOUND 

BEGINX 

IF THI 

THIS 

THI 

IF THI 

BEGINX 

IF T 

BEGI 
IF 

IF 



IF 
IF 
IF 
IF 

IF 
IF 



THENX 

SID.IQCLASSaVAR orx 

IOtIDCLASS*CQNST AND BOOLEAN(THISID.FOrM aL ) 
SID,IDCLASS»FUNC THEN ASSIGNMENT ELSEX 
siD.IDCLASS«PRQ C THENX 



ORX 



H^lSLEVELsO 

NX 
CURNAMEl* 

CURNAME1* 
CURNAME2* 

curnamei« 

5URNAME1* 

curnamei* 

CURNAME1* 
CURNAM £ |» 

CURNAMElc 



then 

"50WRITE" 

"7WRITEL" 
"OOOOO ON* 

"400REAO" 
"6READL.N" 
"400PAGE" 
"3000GET" 
"3000PUT* 
"50RESET" 



X *** 



THEN 
ANDX 
THEN 
THEN 
THEN 
THEN 
THEN 

THEN 
THEN 



INTRINSIC PROCEDURE *** 

PWRITE(FALSE) ELSEX 

PWRITE(TRUE) ELSEX 

PREAD(FALSE) ELSEX 

PREAD(TRUE) ELSEX 

FILEHaNdLINgO) ELSEX 

filehan0lingc2) elsex 

fILehan d lin G (1} eL s E* 

FlLEHANOLlNGO) EL S EX 



02529 
02530 
02531 

02532 
02533 
SEGMENT 
02534 
02535 
02536 
02537 

02536 
0253V 
0254o 
02541 
02542 
02543 

02544 
02545 



02546 
02547 
02548 
02549 
02550 



0375 
0375 
0375 
0375 
0375 



********** 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 



02552 
02553 
02554 
02555 
02556 

02557 



02558 
02559 

02560 
02561 

02562 
02563 
02564 
02565 
02566 
02567 
02568 
02569 
02570 
02571 
02572 
02573 
02574 
02575 



T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 

T 

T 

T 

T 

T 



0000 
OOOQ 

0000 
0000 
0001 
0002 

ooos 

0006 
0009 
0009 

i 

0012 
0012 



35 



00002540 



0034 
0034 
0035 
0036 
0039 



00002545 
00002545 



02551 T 0040 



0040 
0040 
0040 
0040 
0040 

0041 



OO0C2546 
) 
00002537 



0070 

0070 

0070 
0072 

0074 
0077 
0078 
007* 

ooee 

0080 
0082 
0084 
0087 
Q091 
0095 
0099 
010 3 
010? 



00002557 
00002557 
00002557 
00002557 



IF CURNAME1* W 7REWRIT" 

CURNAME2 a "000Q00E w 

IF CURNAME1«"3000NEW" 

IF CURNAMEI»"7QISP0S" 

CURNAME2« M 0000Q0E" 

IF CURNAMEi«' , 4Q0PACK" 
IF CURNAME1*"6UNPACK" 
END ELSE PA5SPARAM3;X 

WRITEEXPRJX 



ANDX 
THEN 
THEN 
AND* 
THEN 
THEN 
THEN 



FllEHANDClNGC4) 
NEWDISP 

NEWDISP 
PACK 

UNPACK 



elH* 

ELSEX 

ELSEX 
ELSEX 
ELSE ERROR(0);x 



END ELSE BEGIN ERRQR(13)> S«IPC99) ENOJX 



end else begin errorci); assignment endjx 



END OF IDENTIFIER ELSeX 



IF C URSY«BEGINSY THEN 

IF CURSY»IFSY THEN 

if cursy*casesy then 

if curSy.whileSy then 

if cursy-repeatsy then 

IF cursy«forsy THEN 

if cur$y»withsy then 

cursy«q tqsy then 



IF 

IF SYMKINDCCURSY]*TERMINAI 

begin eRRorcU); INSYM B OLj 
end of statements 



compst a t elsex 

ifstat elsex 

casestat e ls e x 

whilestat elsex 

repeatstat eusex 

forstat el s ex 

withstat elsex 

gqTqstat elsex 

thenx 

skjpcsemjcolonj e n d;» 



02576 
02577 

02578 
02579 
02560 
02581 
02582 
02583 



02588 
02589 
02590 
0259J 

02592 
02593 
02594 
02595 
0259<> 
02597 



02584 T 



02585 T 



02586 T 



02587 T 



02596 T 
35 IS 244 LONq# 



OiH 

0113 

0116 
0119 
0122 
0124 
0126 

0135 

00002566 

0136 

00002584 
00002584 
00062584 
00092584 
00062584 
00062564 
00002584 

0215 

00002564 
00002585 

0217 

00002559 
00002566 

0219 

00002556 
0219 
0221 
0223 
0226 

0228 
0236 
0232 
0235 
0237 
0236 

00062597 
0241 

00002538 

NEAT SEG 2 



%%%%%%%%%%%%%%%%%%%i%%%%%%%X%X%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%X%%%%%% 
% % 

x X 

x % 

X PART 7\ TYPE DECLARATIONS, % 

x - - X 

* X 

x * 

x X 

xxxxxxxx%x%xxxx%xx%x%xx%x%xxxxxx%xxx%xxx%xx%xxxxxx%x%x%%xxxx%xxxxx%xxxxx 

X 
X 

REAL VALX1#VALX2;» 

INTEGER TYPEX1,TYPEX2JX 

BOOLEAN PACKEO;X 

X 

PROQEDURE FIELdHST(RECTA0*FIRSTadOR*LaSTaDDRJ^» 

value rectab#firstador;x 

integer re6tab,firstaddr,lastaddr;x 

FQRWAROiX 

X 

DEFINE SUBRANGE* %*** SUBRANGE DECLARATION *** 

BEG IN X**************************** 

C0NSTANT(VALXl»TYpEXl);X 

IF TYPETABlCTYPExn»FQRM>CHAR THEN ERRORUDJX 

IF CURSYXDOUBLEOOT THEN ERRQR<53};» 

INSYMBQLJX 

CONSTANT (VALX2#TYPEX2);X 

IF TYPEX1>0 AND T YPEX2>0 TH|NX 

IF TYPEXj^TYPEX2 ThEN ERRQR(U) ELSEX 
IF VALX1>VALX2 THEN ERR0R(54m 

TilnTYPETABitTYPEXi^tFORM; IF Tj-SYMBOLIC THEN T % l»SUBTYPEi X 

NEWTYre; TTYpEi»TYpEI N DEX;X 

Tlt$IZE|»T$IZE|»lJ Tl.STRUCTt'Qi Tl tMAINTYPE l»TYP£Xl*X 

T YpeT ABU TYRE INDEX ]»*TUX 

TYPETAB2tTYPElNDExJl«VALXi; TYPETAB3[ TYPEINDEX J l*VALx2; X 
END OF SUBRANGE*;* 
X 
X 

PROCEDURE typedeclcttype#tsize);x 

INTEGER TTYPE*TSIZEJX 
BEGIN! 

PROCEDURE TYPERR(ERRNUM#TTYPE*TSIZE)JX 



VALUE ERRNUMJX 

INTEGER eRRNUM#TTYP£»TSIZe;* 

begin error(errnuh);x 
ttypei»tsize»*o;x 

ENDjX 



START OF 



02600 
0260], 
02602 
02603 
02604 
02605 
02606 
02607 
02608 
0260V 
02610 
026U 
02612 
02613 
02614 
02615 
02616 
02617 
02618 
0261V 
02620 
02621 

02622 
02623 
02624 
02625 
02626 
02627 
02628 
0262V 
02630 
02631 
02632 
02 633 
02634 
02635 
02636 
02637 
02638 
0263V 
02640 
02641 
02642 
SEGMENT 
02643 
02644 
02645 
02646 
02647 



0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0379 
0375 
0375 

0375 
0375 
0375 
0375 
0375 
0375 
0375 
0379 
0375 
0375 
0375 
037| 
0375 
0375 

0375 
037| 
0375 
Q37J 
0375 
0379 
0375 
********* 3$ 

0000 
0000 
0000 
0000 
0002 

00002645 



INTEGER RECINX#ARRstRuCT'TX*3X#t1'T2»T3*T'N;X 
BOOLEAN FIRST*! 



02648 T 0008 
0264V T 0002 

02650 T 0002 



packeqi*faj.se;x 
if cUrsy«i enTIfier 

BEGIN 

search;* 



THEN 



X*** SlMpLE TYRE DECURAT IQn *** 



02651 T 

02652 T 

02653 T 

02654 T 

02655 T 



IF FOUNO THENX 
BEGIN* 

IF THISID.IPCL.ASS*TYPES THEN* 

BEQINX 

TTYpEl'THISlO.TYpE; TSUE »*TY PET AB1 [ TTYRE3 tSUEJ* 

insymbou* 
end else if thisld* iocl a^'const then subrange* 



02656 
02657 
02658 
0265V 
02660 
02661 
02662 



0002 

0002 
0003 

0004 

0005 



0034 
0034 
0034 

0036 
0036 

0039 
0040 



00002655 
00002655 
00002655 
00002655 



00002659 
00002661 
00042662 
O00Q2662 
00002662 
00002662 
00002662 
00002662 
00002662 
00092662 
00092662 
00002662 

00002662 
00002662 
00002662 
00002662 
00002662 
00062662 
00002662 

00002662 
00062662 
00062662 
00002662 
00002662 
00002662 
00002662 
00062662 
00062662 
00062662 
00062662 
00062662 
00002662 
00002662 
00002662 
00002662 
00062662 
00002662 
00002662 
00062662 
00002662 
00062662 



ElSE TYPERR<7'TTYPfc*TSIZE>;* 
ENO ELSE BEGIN TYPERRC 1 #TTYPE#T5IZE ); INSYM80U ENDU 



END ELSE* 

if cursyscharconst or cursy»plus or cursy-mjnus then subrange else* 



IF CURSYaLPAR then* 
BEGINS 

ni=o;x 

NEWT¥pE; T3,IDCI.ASSI»CQNST; T3,TYpEI«TYpElNDEX** 



DO BEGIN* 
INSYMBOU* 







00092662 


02663 


T 


0249 


02664 


T 


0251 

00002657 
00002664 


02665 


T 


0255 

00002654 


02666 


T 


0255 

00002666 
00002666 
00002666 
00002666 
00002666 
00062666 
00002666 
00062666 
00002666 
00062666 
00062666 

00002666 
0006266* 
00062666 
00002666 
00002666 
00062666 
00002666 
00062666 

00002666 
00062666 
00002666 

00062666 
00002666 

00002666 

00002666 

00062666 

00002666 

00002666 

0000266$) 

00002666 

00002666 

00002666 

00002666 

00002666 

00002666 

00002666 

00002666 

00002666 
00062666 

00002666 


02667 


T 


0466 


02666 


T 


0467 


02669 


T 


0467 


02670 


T 


0466 

00002670 
00062670 


02671 


T 


0477 


02672 


T 


0477 



1 
m 



IF CURSYsIDENTIFlER THEN* 
BEGINX 

NEWNAMECCURNAMEl*CURNAME2#CURi,EVEL);X 



T3.InFQi*N; NAMETAB3tCuRlEVEt*THlSlNDEX3l»T3;x 
NI"N+li INSYMBOLjX 
ENO ELSE ERR0R(9);x 

END UNTIL CURSY*CQMMAJX 

IF CURSY/RPAR THEN BEGIN EHR0RC46); SKIPCRPAR) ENDJx 

Tx«»SYMBDtICi Tl , STRUCT l*OjX 

Tl,SlZEl*TSIZEl»l* TTYPE I "TYPE INDEX;* 

TYPETABlCTYPElN0EX3l»Tlj* 

TYPETAB2[TYPEIN0EX3|«0; TYPETAB3C TYPEINOEX] i*N»WX 

if cubsy*rpaR then insymbQLIx 

END ELSEX 



x*** pointer declaration *** 

X*************************** 



if cursy»arrqw then 

BEGIN 

insymbol;x 

if cursy«ioentifier then* 

BEGINX 

NeWTYP e ; TTYPei-TYPeINqEX; TH»PQINTeRS;X 



T1,SIZE»*TSJZEI»U Tl,STRucTl»OiX 
T YPET AB 1C TYPE jNDEX] I »TU* 
SEARCHU 



IF FOUND THENX 
BEGINX 

IF THISID»IDCLASS»TYPE5 THENX 

TYPETABUTYPElN D EX3,POINTTYPEI«THISIOtTYPE EtS£X 

TYPERRC7#TTYPE#TSl2E)i» 
END ELSEX 

BEGINX 

IF NUMPNTRS<MAXp N TRS then numpntrsunUmpntrs*i el s e errqr<52); 
PNTRtABicNUMPNTRSJi^CuRNAmEj; PNTRTAB2cNUMPNTRS3»*CURNAME2JX 
PNTRTAB.31nUMPNTRS3I«TYPEInOEX;X 

ENDjX 

INSYMBQL** 
END ELSE TYPeRR(9*TTYP E #TSIZE);X 

end Of pointer declaration else* 

BEGINX 

IF CMRSY.PACKEOSY THEN BEGIN PACKED I -TRUE* INSYMBQL ENDiX 



02673 


T 


0477 


02674 


T 


047g 


02675 


T 


0478 

00092675 
00002675 


02676 


T 


0501 


02677 


T 


0505 


02678 


T 


050? 

0000267* 


02679 


T 


0506 

00002671 


02680 


T 


0509 

00002680 


02681 


T 


0512 


02682 


T 


0514 


02683 


T 


0518 


02684 


T 


0519 


02685 


T 


0522 


02686 


T 


0524 

00002668 


02687 


T 


0524 


02688 


T 


0524 


02689 


T 


0525 


02690 


T 


0526 


02691 


T 


0526 


02692 


T 


0527 


02693 


T 


0527 

0008269^ 
00082693 


02694 


T 


0534 


02695 


T 


0538 


02696 


T 


0548 

00002698 
00062696 
00082690 
00002696 


02697 


T 


056$ 


02698 


T 


0569 


02699 


T 


0569 


02700 


T 


0571 


02701 


T 


0574 


02702 


T 


0577 

00002698 


02703 


T 


0577 


02704 


T 


0577 


02705 


T 


058i 


02706 


T 


0564 


02707 


T 


0585 

00062703 


02708 


T 


0585 


02709 


T 


0585 

00002692 


02710 


T 


0588 

00002689 


027U 


T 


0586 


02712 


T 


0569 

00002/lg 



X*** ARRAY DECLARATION *** 



if cursy.arraysy then 

BEGIN 

insymboux 

if cursyxlbracket then eRRQRU7) else insymbqu* 

ti*o; first?Vtrue;x 

DO BEGIN* 

IF FIRST THEN FIRSTIwFA^SE else insymbqu* 

TYPEDECLCTX,SX)iX 

IF TX>0 THENX 

BEGIN* 

IF TYPETABUTX3,FQrW>CHAR THEN Err0r<48)JX 
Tl|«ARRAYSi Tl « INXTYPE t»TXJ U t ARRTYPE l-T^X 
T2l«TYPETAB?tTX3; T3 l*TYP&T AB3£TX3i X 
IF T3«T2>1022 THEN ERR0RC6t)JX 
Tl,SlZEI*MiN(i023#T3*T2*l)U 
NEHTYPEf X. ; 



YpETAB3tTY P ElNDEX3l»T3;X 



TYPETAB1CTYPEINOEX3 J'TliX 
TY P ETAB2tTYpElNOEX3»«T2i T 
T»«TYPEINOEX;X 

ENDJX 

END UNTIL CURSY^COMMA^X 

IF CtfRSYXRBRACKET ThEN EKR0RC59) ELSE jNSYMBQLJ* 

IF CURSYXqFSY THEn BEGIN ERR0RC18); S K IP<QF5Y) g H W % 

INSYMBOL'X 

TYPEDECLCTX*SX)*X 

IF TYPeTAB1CTXJ«FQrM*FILES THEN ERRQR(60)JX 

ARRSTRuCTI»TYPETABUTX3»5TRUCTU 

WHILE T>0 DOX 

BEGIN* 

Tll»TYPETABnT3; T31«T1,ARRTYPe** 

TI.ARRTyPEIsTx* Tl.STRUCTl»ARRSTRUCTlsARRSTRUCT+UX 

Ti f SlZEl"5Xl«MIN(i024*5XxTl f SlZE);X 

TYPETABlCT3i«Ti; TX!*T; Tt«T3JX 

end;x 

tt*pei«tx; tsuei«sx;x 
end of array declaration elsex 



if cursy»fuesy THEN 

BEGIN 

INSYMBOL^X 

IF CURSY*0F5Y THENX 

BE«IN ERR0R(18)iX 

IF CUR$Y*IDENTIFIER THEN INSYMBOtU 
END ELSE INSYMBQLJX 



X*** FILE DECLARATION *** 
X************************ 



TYPEDECLCTX#SX)JX 

IF TX>0 THENX 

BE«IN TI'TYPETABICTXJU 

IF T.FORMiFlLES THEN 



ERRORC50) ELSEX 



02713 1 


r 059i 


02714 1 


r 059 t 


02715 1 


r 0592 


02716 " 


r 0592 


02717 1 


r 0598 


02718 1 


r 0596 


02719 1 


r 059? 


02720 1 


r 0598 


02721 1 


r 0606 


02722 1 


r 060i 


02723 1 


r 0602 


02724 1 


• 0602 


0272b 1 


r 0605 


02726 1 


r 0609 


02727 1 


r 0611 


02728 1 


r 0614 


0272* 1 


r 0619 




00002729 




00002729 


027 30 1 


r 0624 


02731 1 


' 0625 


02732 1 


r 062a 


02733 1 


r 0628 




00062723 


02734 1 


r 0628 




00002719 


02735 1 


r 0630 


02736 1 


r 0633 




00002736 


02737 1 


r 0635 


02738 1 


r 0636 


02739 1 


r 0637 


02740 i 


r 0640 


02741 1 


r 0641 


02742 ' 


r 0649 


02743 1 


r 064J 


02744 1 


r 0645 


02745 1 


r 0650 


02746 1 


r 0655 


02747 1 


r 0658 




0000274| 


02748 i 


r 066o 


02749 1 


r 0662 




00002715 


02750 i 


r 0662 


02751 1 


r 0662 


02752 ' 


r 0663 


02753 1 


r 0663 


02754 1 


r 0664 


02755 1 


r 0665 


02756 1 


r 0666 


02757 1 


r 0668 




00002755 


02758 ' 


r 0669 


02759 • 


r 0670 


02760 1 


r 0670 


02761 1 


r 0672 



IF T.STRUCT>1 THEN ERRQRC 49) i% 
ENDJX 

NEHTYPe; TTYPEI«TYPElNOEX;X 



TH»IF T.FORMaCHAR THEN UxTFILE ELSE FILESU 
U,SIZE|-TSIZEI*SX; Tl f FiLETYPEI*TXJ* 
Ti,STRUCTl«i;x 
TYPETABltTYPEINOEX3l»Tli» 
END PF FILE DECLARATION EL^EX 



THEN 



X*** $ET DECLARATION *** 
X*********************** 



IF CURSYtSETSY 
BEGIN 

INSYMBOUX 

IF CVWOFSY THENX 

BEGIN ERR0RC18)IX 

jF cuRsy>Charconst then insymbql;x 

END ELSE IN5YmBQL;x 

typedecuctx»sx);x 

IF TX>0 THENX 
BEGINX 

if typetabhtx3.form>char THEN ERR0R(«8) else* 

IF TYPETAB2CTX3<0 OR T YPfcT Afl3 [TX3>36 THEN £RH0Rc5Dn 
ENDJX 

NEWTYPe; TTYpElsTYPEINDEXix 

TliaSETi Tl.SETTYPEl«TX> Tl . STRUCT »«OJ % 
Ti,SIZeI«TSi2e»»U TYp£TA8HTYpElNOEX3?«TU* 

typetab2Ctypeindex3i«typetab2Ctx3;x 

TYPETAB3tTYPEjN0EX3l«TYPETAB3CTx3;X 

end of set declaration els^x 

if cursywrecordsy then x*** record declaration *** 

begin %#************************* 

if lastrec'p^curuevel then lastrec «*lastrec- j else errqr<55>*x 

RECINXl«LASTRECVx 
BLQCKTABCREClNx3l«NuMBLOCKSjsNUMBLOCKSn;x 

INSYMBOUX 
FIELDLIST<RECINX#0#SX)U 

if sx>i022 then begin e rr Q r c56>; sx»»iog2 e n d'* 

NEWTYPE* TTYPE*»TYPElNDEx;x 

Tll»RECORD; Tt,RECTAB«»REClNX; Tl .STRUCT l»U* 
T1,SIZEI«TSIZE|»SX; TYPETABltTYPEINOEX3l»TliX 
TYpETAB2CTYpElNQEX3l»0; TYpETAB3CTYpEJNDEX3 ***X m U* 
IF CURSY^ENDSY THEN BEGIN ERR0RC24)* SKIP(ENOSY) ENDiX 

IF CURSY«ENDSY THEN INSYMBOUX X 
END ELSE BEGIN e r «QRU>; SKiP(99) end'x 



02762 
02763 

02764 



0276* 
02766 
02767 
02768 
0276V 

02770 
02771 
02772 
02773 
02774 
02775 
02776 
02777 

02778 
02779 
02780 
02781 

02782 
02783 

02784 



02785 
02786 
02787 
02788 
02789 

02790 
02791 
02792 
02793 
02794 
02 795 

02796 
02797 

02798 
02799 



02800 
02801 
02802 
02803 

02804 
02805 



06/4 
0677 

1 

0677 



0683 

0687 
0691 

0693 
0694 

I 

0694 
06 94 
0695 
0696 
069$ 
0697 
0698 
0700 

l 

0701 
0702 
0703 
0703 
0706 

0710 

1 

0710 



00002760 

00002764 
00002764 



00002752 



00002775 



0716 
0720 
0724 
0725 
0727 

0727 
0727 
0728 
0729 

0733 
0734 

0736 
0736 
0738 

0740 



00002780 

00002764 
00002784 



00002772 



0746 
0751 
0754 
0757 

0760 
0762 



00082798 

0000279? 
00002799 



00002603 



end;* 

END OF TYPEDECL/X 



00002792 
00002805 

02806 T 0764 

00002711 

02807 J 0764 

00002641 
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X 
X 

PROCEDURE FIELdLISTCRECTab*FIRSTAOOR»USTaDDR)>X 
VALUE RECTAB*FIR$TADDRJ% 

INTEGER REeTAB#FlRSTADOR'UA$TADOR>* 

R F* C T K|2 

INTEGER ARRAY IL 1ST CO JL iSTLENGThJ'X 



INTEGER LISTINX;X 
INTEGER CA5ETYPE*ADDR*MAXaODR#InDEX,CTYpE,TX*SX#T1>T3#llIM'UlIM'I'X 
BOOLEAN FlRSTJX 

real cvaljx 

LABEL CASETYPElD»CASEPART»ExlTiX 

addri«firstaddr;x 

00 BEGINS 

WHILE CURSy.SEMlCOLON 00 INSyMBQLJX 
IF CURSY^CASESY THEN GO TO CAsEPART;x 

IF CUrSY*IOENTIFIER THEN* 
BEGINX 

LISTINXI«0; FJRSTI»TrUE>X 
00 BEGINX 

IF FIRST THEN FIRST |*FAL5e ELSE INSYMbOLjX 

IF CyRSY»IDENTlFlER THENX 

BEGINX 

IF lISTINx^LISTlENGTH THEN BEGIN ERRQR(37)J LlSTlNx»*0 ENOJX 

LISTINXI»LISTINX + UX 
NEwNAME<CuRNAMEi*CURNAME2#RECTAB);x 

ILlST[LiSTlNX3l»THlSINDEXiX 

insyhb-ol'x 
end elsex 

begin errgr(9)jx 

if cursy^comma then ins y mb0l*x 
endjx 

end until cclrsyk comma; x 

if.c_yrsy^colqn jhen begin errqr(26)j 5kipcc0l0n) endu 

insymboljx 

TYP£j)E C L(TX»SX>JX 

IF Tx>0 THEN IF t yPETABl tTx] ,FQRM*F JLE5 THEN EKR0R(57);x 



START 



02808 


T 


0375 


0280V 


T 


0375 


02810 


T 


0375 


02811 


T 


0375 


02812 


T 


0375 


02813 


T 


0375 


02614 


T 


0375 
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02815 


T 


oooi 


02816 


T 


0001 


02817 


T 


0001 


02818 


T 


OOOl 


02819 


T 


0001 


02820 


T 


OOOl 


02821 


T 


OOOl 


02822 


T 


0002 


02823 


T 


0009 


02824 


T 


0003 


02825 


T 


0006 


02826 


T 


0007 


02827 


T 


0007 


02828 


T 


0009 


02829 


T 


0010 


02830 


T 


0012 


02631 


T 


0013 


02832 


T 


0013 

00002832 


02833 


T 


0016 


02834 


T 


0017 

00002834 
00002834 


02835 


T 


0040 


02836 


T 


0041 


02837 


T 


0042 

00002831 


02836 


T 


004g 


02839 


T 


0043 


02840 


T 


0045 

00002638 


02841 


T 


0045 

00002826 


02842 


T 


00*6 

00002842 


02843 


T 


0049 


02844 


T 


0049 


02845 


T 


0011 



T3*idciassi»var; T3.TYPE|«TX/X 
FOR IU1.STEP 1 UNTIL LI^TInX DQ* 
BEGINX 

T3,INFOl«AD0R; AD0R*»HlN(ADDR*SXM024)jX 
NAMETAB3[RECTAB,lUlSTtini«T3;X 

end;* 
end;x 
end until cuRsy*semicolqn;x 



iastaddr»»addr;x 

GO TO EXITjX 
X 
CASEPART i X 

LISTINX»«Q; lASTAODRI»AODRi 

INSYMB9L.U 

IF CURSY'IDENTIFIER THENX 

BEGIN* 

search; x 



INDEX»»-UX 



IF FOUNO AND THI sID, IDCLASS«TYPES THEN GO TO CAs&TYPElQU 
N E WNAMECcURNAMEl*CURN A ME2*RECTAB)i INQEX I*THISINQEX;X 



INSYMRQLJX 

if cursy^colon then err0rc26>;x 

insymbol;* 

IF CURSY« IDENTIFIER THENX 

BEGIN* 

SEARCHjX 



IF FOUND THENX 
BEGINX 

IF THISlDilDCl.ASS»TYPE3 THENX 

BEGIN* 
CAsETYPEIDi CAsETYPEi-THIsID.TYPE:; TllsTYPETABltCASETYPEjn 

LUlM»«TY P ETAB2CCASETYpE3; ULIM t*TY P ET A83t CASETY p£3 }% 

IF Tl.FORM>CHAR THEN ERRQRU6);x 

IF iNDEXiO THENX 

BEQINX 

T3,IDC'-*SSI»VAR; T3 f TYPEI*cASETYPEJ T3 , INfO l*A oqR I % 
ADDRI*IASTADDRI«ADDR+1; nAMETAB3CRECTAB,INDE x JI«T3;x 

eno;x 

insymbol;x 

END EL S E BEGIN ERRQRC7); SkIPCQFSY) ENDJX 



END ELSE BEGIN £RRQRU>> SKIPCQFSY) ENQJX 



02846 
028*7 

02848 
02849 
0285Q 

02851 



02854 
02855 

02856 
02857 
02858 
02859 
02860 
02861 
02862 



02865 
02866 
02867 
02868 
02869 

02870 



02871 

02872 

02873 

02874 

02875 
02876 

02877 
02878 
02679 
02880 
02881 

02882 



02863 T 

02864 T 



02883 T 
02684 T 



0054 
0058 
0059 
0059 
0064 
0066 



02652 T 0066 
( 
02853 T 0066 



00002846 
I 
00002626 



00002822 



0070 
007! 

0073 
0073 
0073 
0075 
0076 
0077 
007? 



0t06 
0108 



00002662 
00002862 
000Q2862 
00092862 



0131 

0131 
0133 

0134 
0135 
0135 



00002864 
00002864 



0164 

0164 

0164 

0166 

0l66 
0169 

0171 

0173 

0174 

0175 

0180 

0184 

( 

0184 
0164 



00002870 
00002876 
00002870 
00002870 



00002879 



02885 T 0186 



00002874 
0006286« 
i 
00002872 



I 



end else begin errqr<9>; skipcqfsy) end;x 



END ELSE BEGIN ERRQR(9)j SKlP(OFSY) END** 



IF CURSYXQFSY THEN BEGIN ERR0RU8); SKlP(RPAR) ENDU 

IF CURSY«OFSY THEN INSYMBOU* 

IF CA$eTYPe«Q THEN BEGIN U lM|«-MAXlNT; ULIMI«MAXINT eNq>X 

DO BEGIN* 

WHILE CURSY»SEMICOLON DO JNSYmBQLJX 

IF CURSYSCHARCONST OR CURSYpPLUS OR CURSYwMINUS then* 

BEG1NX 

FIRSTI»TRUEiX 

do beg i nx 
if first then first««false else insymbqljx 
cqnstant(cval#ctype);x 



if ctype>0 thenx 
beginx 
if casetype«0 then qasetype |*ctype elsex 

IF CVAL<LLIM OR CVAl>ULIM THEN ERRQRC14) ELSE* 
CHECKTYPES(CA5ETYPE#CTYPE);x 



IF LISTINXJLISTLENGTH THEN BEGIN ERRQRC30JJ LlSTlNXLQ ENOi X 

LISTINX««LISTINX+1;X 
ILIST[LISTINX]I«CVAL' II»UX 
WHILE ILISTtl^QVAL 0q II"I*U% 
IF I<LISTINX THEN ERR0RC31);X 



02886 T 0*88 



02887 T 0198 



02888 T 0192 



02889 T 

02890 T 



02891 
02892 
02893 

02894 
02895 
02896 
02897 

02896 



02899 T 

02900 T 

02901 T 

02902 T 

02903 T 



02905 
02906 
02907 
02908 



0000288^ 
I 

00002869 

00002886 
I 

00002861 

00082887 

I 

00082886 



019$ 
0197 

( 

0200 
0201 

0205 
0207 
0208 
0209 
0209 

0211 



00092890 



00002698 

00082898 
00062898 
00002898 
00082898 
00002896 
00082898 
00062898 
0006289$ 
00082698 
00002898 
00062898 
00082698 
00082898 
00082898 
00062898 
00002896 
00062898 
00062898 



0299 
0299 

0300 
0302 

0905 



02904 T 0365 



0000290S 
00002903 
0006290$ 
00002903 
00092903 
0000290| 

00062903 
» 
00002904 



0367 
0369 
0371 

0374 



1 



end;* 

END UNTIL CuRSYJCQMMA;* 

IF CURSYXCQIQN THEN BEGIN ERRQR(26>i SKIP(LPAR) ENDiX 

IF CURSY«COLON THEN INSYMBQLJX 

IF CURSY-tPAR THENX 

BEGIN* 

insymbOl; fi£Udust(REcTab>addR#maxaddR>;x 

IF MAXAODR>LASTADOR THEN UASTAOORI «MAxAODR; X 

if cursy^rpar then begin eRRoru6); skipcrparj e no;x 

insymbql>* 
end else erhqrc58)jx 

end;* 
end until cursy ne<3 semicolon; x 

EXITIX 

END of fieldlist;x 



02909 T 0376 

00002900 

02910 T 0376 

00002896 

029U T 0377 

000029U 

02912 T 0380 

02913 T 0382 

02914 T 0382 
0291* T 0383 

02916 t 0385 

02917 T 0387 

00002917 

02918 T 0390 

02919 T 0390 

00002914 

02920 T 0391 

00002894 

02921 T 039i 

00002891 

02922 T 0393 

02923 T 0393 

00002813 
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%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%x%% 
X X 

X % 



% 

X 
X 
X 
X 
X 



PART 81 THE PROCEDURE BLOCK, 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 
X 
X 

procedure qecl,arevarscparam> tab* first* l.ast* level ))« 
valise param,first»last#level;x 

integer array TABtom 

INTEGER FIRST*LAST#LEVELU 
BOOLEAN PARaMJX 

Or *» T kl % 

INTEGER LEVE1-1000'TYP*NaM#N a Mt ab ,T1#I#J»RECSIZE'* 

BOOLEAN REALVAR*ARRAYVAR#FlR5TDjM,ExTnLEJX 
ALPHA FNAMEJX 

INTEGER FNLENGTHjFNSTART; X 
X 

LEVEL! QQQ«*LEVEL*10QQJX 

FOR I**FIRST STEP 1 UNTIL LAST DO* 

BEGIN* 

NaM!«TABUM 9, 10 3; NAMTABUNAMETAB3tLEVEL#NAM3;X 

TYP««NAM T AB,TYPE* Tl**TYPETABltTYP3JX 
IF NAMTAB, IDCLASS GeQ FUNg THeNX 

BEGINS 

IF REALVAR QR ARRAYVAR THEN* 
BEGINS 

SEN<»;%1*7)J* 

realvar !*arrayvart«fal3e;x 
end;x 

IF NaMTaB»IDCLaSS«FUNc THEN GEN( W RE AL">5* 4} ;X 
GENC"PR0CEDU"#8#nU 
GENID( M V%LEVELi000*NAM,5); GEN (";"# I' 7 >'X 



END ELSE* 



X*** SIMPLE TYPE *** 



IF T1,STRUCT«0 THEN 

BEGIN* 

IF ARRAYVAR THEN BEGIN G£N("i »> J#7 ) i ARRAYVAR t*FALS£ END'* 



IF REALVAR THEN GEN(",%1#7) ELSEX 

BEGIN GENC"REAL"*5»ft>J REALVAR »«TRUE ENDJX 
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T 


0375 




02926 


T 


0375 




02927 


T 


0375 




02928 


T 


0375 




02929 


T 


0373 




02930 


T 


037$ 




02931 


T 


0375 




02932 


T 


0375 




02933 


T 


0375 




02934 


T 


0375 




029|5 


T 


037} 




02936 


T 


0375 




02937 


T 


0375 




02936 


T 


037S 




02939 


T 


0375 




02940 


T 


0373 




02 9ft X 


T 


0375 




02942 


T 


0373 




02943 


T 
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02945 


T 


0006 




029*6 


T 


oooo 




029ft7 


T 


0000 




02948 


T 


0000 




02949 


T 


0006 




02950 


T 


0001 




02951 


T 


0002 




02952 


T 


0002 




02953 


T 


0005 




02954 


T 


OOOF 




02955 


T 


0008 




02956 


T 


0009 




02957 


T 


0010 




02958 


T 


0016 

00002956 




02959 


T 


0019 




02960 


T 


0020 

0000295f 




02961 


T 


0020 

00002961 




02962 


T 


0031 

00002962 




02963 


T 


0040 

00002963 
0000296| 




02964 


T 


0062 

00002955 




02965 


T 


0062 




02966 


T 


0066 




02967 


T 


0066 

00002967 
00002967 




02968 


T 


0077 

00002968 




02969 


T 


0087 

00002969 



END ELSEX 

BEGIN* 

IF REAtVAR THEN BEGIN G£N( *; ", 1, 7 ) ; REALVARI *FALSE ENDU 

IF Tt.F0RM<FlLE5 THEN X*** ARRAY/RECORD *** 

BEGINX 

IF ARRAYVAR THEN GENC M >"M'7) ELSEX 

BEGIN GENCARRAYV^); ARRAYVAR* »TRuE ENO;x 
GENlp( ,, V H *UEVELip00+NAM,5); QENC "C % l# 7)9* 



firstdim»*true;x 
do beginx 

IF FIRSTOIM THEN FIR5TQIM *«FALS£ EUSe GENC"*"# 1*7 >;X 
GENINT(TYPETAB2CTYP3);X 



IF NOT PARAM THENX 

BEGIN GEN<"*%1,7)J GENINT< TYPETAB3 t TYP3 > END1X 



TYP|*IF Tl,FORM*ARRAYS THEN Tl f ARRTYPE ELSE REALTYPEU 
Tln-TYPETABHTYPJiX 
END UNTIL Ti,STRUCT*On 

SEN("] W »1#7);X 

END ELSEX 

BEGIN X*** FILE *** 

IF REALVAR OR ARRAYVAR THENX 

BEGIN GEN<";"'l*7)i REAlVAR»« ARRAYVARI'F Al.SE ENDJX 



IF T1.F0RM«TEXTFILE AND NOT PARAM THENX 

BEJUM 

IF NUMFlLESiMAxFlLES THEN ERR0RC97)* 

else numfilesi»numfiles+i;x 
filetabcnumfilesji-namu 
endjx 

extfilei«false;x 

FNAME» B NAMETABiCLEVEL#NAM3iX 

fnlength i« fname.namelength; fnstart i» b-fnlength; x 

IF FNLENGTH LEO 6 THEN * 
BEGINX 



02970 T 

02971 T 

02972 T 

02973 T 

0297* T 

02975 T 

02976 T 

02977 T 

02978 T 



02979 T 

0298Q T 
02981 T 



0097 

( 
0109 

I 

0109 
0112 



00002969 

* 

00002970 



00002966 



0122 
0123 
0124 

I 
0134 



00002973 
00002973 



Oi«« 



OI65 
0168 
0167 



00002976 

t 

00002977 
00002977 

\ 

00002976 
00082978 



02982 T 0179 



02983 T 

02984 j 



02985 T 

02986 T 

02987 T 

02988 T 

02989 T 

02990 T 

02991 T 

02992 T 



02993 T 

02994 T 
0299b t 

02996 T 

02997 T 

02998 T 

02999 T 
3000 T 

03001 T 

03002 T 

03003 T 



0223 
0223 



00002981 

00002982 
00002982 



0277 
0281 

0282 

( 

0263 
( 

0292 
< 

0292 
0293 
0294 



00092984 
00002984 
00082984 
00002984 



00002980 



00002988 



00082975 



03 04 
0306 
030? 

0309 
0311 

0312 

( 

0312 
0313 
0314 
0317 
0318 



00082992 
00062992 



00002999 



FOR Jl-X STEP 1 UNTIL NUMEXTFiLES DQX 

IF FNAMt-EXTFItETABCJJ THEN EXTFILE I -TRUE* X 

eno;x 

if extfite ano nqt param thenx 

BEGINS 

IF NUMFILES QEQ MAxFIl.ES THEN ERR0RC97JX 

ELSEX 

NUMFILES l« NUMFILES ♦ WX 
FILETABCNUMFILES3 I » "NAM - 1JX 
GENC "DEFINE", 7,2 )j GENIDC «F",LEVEL1000*NAM,5 }J X 



GEN<"*">1*7);X 

gencfname#fnlength#fnstart); X 

GEN("*>"*2#6); GEN<"SAVE%5,4)J GENCF ILE"#5# 4 ) J X 

gencfname,fnlength,fnstart); % 
end elsex 

BEGIN* 

GEN("FlLE"»5>4); GEN IDC "F", LEVEL! 000*NAM*5 ) j * 

ENDJX 

IF NOT PAHAM THENX 
BEGINX 

GENC" DISKV6#3H GEN("SERIAL"#7#2>;X 

IF EXTFILE THENX 
BEGINX 

IF ALGOLCNT LSS 13 THEN WRITeaLGQLJX 
GENC"C0I03",5#3)>X 

GENC T,WM * l*7)ix 

gen(fname*fnlength#fnstart); % 
genc ww,, #1#7); gen("/",1,7)jx 



IF ALG0LCNT<9 THEN WRlTEALGOLJX 

QEN("""#1#7)J geN(user»7#d; 



END ELSEX 

BEGINX 

GEN("C20t"*4>4)j GEN("3Q0J"»4#4);X 



GEN< n " w 'i'7)iX 



0300* T 

03005 T 

03006 T 



03007 
03008 
03009 
03010 
03011 
03012 
03013 



0318 

0320 

0324 

I 

0324 
0325 
0326 
0327 
0328 
0329 
0331 



00003003 



03014 T 

03015 T 

03016 t 

03017 T 

03018 T 

03019 T 
Q3o2Q T 



0353 

I 

Q36g 

i 

0371 



0398 

I 

0407 

I 

040f 
0*11 



00003019 
00003019 

I 
00003014 

i 

00003015 

00003016 

00003016 
00003016 
I 
00003017 

00003008 



03021 T 0432 



00003020 
00003020 

i 

00003019 



03022 T 

03023 T 

03024 T 



03025 T 

03026 T 

03027 T 

03028 T 



0432 
0433 
0433 



0451 
0451 
0452 
0454 



00003024 
00003024 



03029 T 0463 



03030 T 

03031 T 



03032 T 

03033 T 



0472 
I 
0481 



0499 
0500 



00003028 
t 

00003029 
I 

00003030 

00003031 
00003031 



03034 T 0532 



03035 T 

03036 T 



0532 
0532 



00003033 
00003033 
0000303^ 
I 

00003026 



end;* 

GEN("Ci>"»3»5)|X 

RECSIZEI-IF Tl,FORM*TEXTFIuE THEN 10 E|.SE* 

IF TYPETABUT1,FILETYPE],STRUCT«0 THEN 1 ELSE* 
TYPETAB3tU,FIlETYPE3-TYPETAB2CTl,F RETYPE] *UX 
GENINT(HECSIZE); GENC "#% i#7 )|X 



IF RECSIZE-1 OR RECSIZE*10 THEN GENINTC150U 



ELSE GENJNTCRECSJZE)** 



IF ALGOL.CNT LSS 10 THEN WR ITEALGOLjX 
GEN(%SAVE"#6,3); GEN ("30 ",2,6 )U 



GENC")J%2#6);X 
END ELSE GEN< w ; w #l#7);X 



GEN( w aRRaY m »6*3 jj 



«ENC"[ , M'7)JX 



genid<"v%leveliooo+nam*5)j* 



IF TYpETABltTl.FlLETYpEj.STRUcTisO THENX 
BEGiNX 

IF PARAM THEN GEN<"0%lf7) El.SE GEN("0 » 0% 3* 5 )i% 



END ELSE* 
BEGINX 

genintctypetab2cti,fjletype]);x 



IF NOT PARAM THENX 

BEGIN GCNCl"* i#7>' GENINTC TYPETAB3E T 1#FILETYPE J ) ENDJX 



end;* 

GEN(«j;»#l*6)JX 

GEN( W INTEGER M *8*1); GEN ID ("I%LEVEL 1000«-NAM,5)i X 
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6ENC w ;'M#7);% 
end;% 
end;x 

END OF LOOP;* 

IF REALVAR OR ARRAYVAR THEN GENC"; w # I, 7)* X 
END OF DECLAREVARS** 
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X 
X 

PROCEDURE PARAMETERtlST'* 

BEGINS 

INTEGER FIRSTPARAM,CURKIND»P1#PX#I»TJ% 

BOOLEAN FIRSTS 

DEFINE NEWpARAM** 
BEGIN* 

IF numpaRamsjmaxparams thenx 

begin err0r(70)j numparams* *maxparams"10 endjx 

numpaRamsi*numpaRams*u* 
end of newparam#;% 

X 

newparam; firstparam«*nUmparams;x 



IF CURSYsLPAR thenx 
8EGINX 

DQ BEGINX 
INSYMBQi;X 

IF CURsY B VAHsY OR CuRsY* F UNCSY OR CUR5Y»PRQCSY THENX 
BEGINX 

CURKINDlsIF CURSY*VARSY THEN VAR ELSEX 

IF CURSY«FUNCSY THEN FUNG ELSE PROCiX 
INSYMBOUU 
END ELSE CURKINOl«CQNST*X 

FIRST»»TRUE; Pll»NgMPARAMS*UX 
DO BEGINX 

IF FIRST THEN FlRSTl»FALSE ELSE INSYMBOL;X 

IF CURSY»IDENTIFIER THENX 

BEGINX 

NEwNAME(CURNAMEl*CURNAME2#CuRLEVEL*i);X 



px«*th is index; px.paramkind'-curkind;* 
px,paramlevel|«curlevel*ux 
newparam; paramtabtnumparams3 »*px;x 
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END ELSE ERRQRC9);* 

INSYMBQUX 
END UNTIL CURSYVCQMMAU 

IF CURSY*CQLQN THEN* 
BEGINS 

IF CuRKINOsPROC THEN ERRQR(90)JX 

INSYMBQLi* 

IF CuRSY*lDENTlFlER THEN* 

BEGIN* 

search;* 



IF FOUNO THEN* 
BEGlNX 

IF THISID«IDCLASS*TYPES THEN* 

BEGIN* 

T3»»THI5IQ.TYPE;X 

for il-pl step 1 until numparams do* 
paramtabci],paramtypeut3;x 

IF CURKJND«CQNST OR CURKlNO*VAR THEN* 
BEGIN* 

TI«TYPETA8ltT3^» 

if T.FQRM*FIL£S THEN* 

for i|»pl step 1 until numparams do* 

PaRamtabci3. p aRamfile««U* 
if tistruct>0 a nd cgrklnd«const then errqrc94);* 
end else if t.struct>0 then errqrc38);* 

END ELSE BEGiN ERRQR<7?> T3I«Q ENOU 



end else begin errokcd; T3no end;* 



END ELSE BEGIN ERRQRC9); T3|*Q END;* 



iNSYMiOL;* 
END ELSE* 

8E.GIN* ._ ..„. 

IF CuRKlND^PROC THEN EHR0RC7);* 

T3»»o;* 
end;* 

T3,IDCUASS»»CURKIN0; T3tFORMAL»*i;X 

FOR HfPl STEP I UNTIL NUMP A RaM§ DO* 
NAMETAB3CCURLEvLL+l#PARAMTABCI],PARAMNAME]UT3;* 

END UNTIL CURSY^SEMiCOLON;* 
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IF CURSYjfRPAR THEN* 
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BEGIN ERrOR(46); SKIp(RPAR)JX 

IF CURSYbRPAR THEN JNSYMBQU* 

end else insymboi;* 

end;* 

paramtab[Firstparamh»numparams-firstparam;* 
end qf parameteruistu 
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X 
X 

PROCEDURE BLOCK** 
BEGINX 

integeb index* ctype>numf0rwards*t»t3»tx*n* 

real cvaljx 

alpha c1#c2j* 

boolean vauueparams*fun;x 

LABEL STARTiX 



START OF 



X 

X 



Integer u abtabtop#cqnsttabTqp*typetabtqp»paramtabtup»tqprec#x 
formerfirstlab*firstfile;x 

formerfirstlabi'PIRstlabjx 
labtabtopunumlabsj firstlab»«labtabtqp*ux 

consttabtop««numconsts^x 
typeTabtopi«numtypes;x 

paramtabtop*«numparamsjx 

TOPRECl»LASTRECiX 
FIRSTFH.E»»NUMFlLES*i;X 

TCPLEVELI-CURLEVELi* 

IF CURLEVEL>1 THEN GENCBEGIN",6,3);X 



STARTIX 

IF cU R SY«LABELSY THEN 

BEGIN 

GEN( ,, LABEL M »6,3)iX 

do beginx 
insymbol** 

IF CuRSY»tNTC0N5T THENX 

BEGINX 

GENIDC"L"#CURVAL#4)J* 



X*** LABEL DECLARATION *** 
X************************* 



IF CURVAL>9999 THEN ERRQRC33);X 

FOR H«FIRSTLAB STEP t UNTIL NUMLABS pQ* 

IF LABTABCUtLABVAL»«CURVAL THEN ERRQRUtm 

IF NUMLABSJsMAXLABS THEN BEGjN ERR0R(34)i NUMLABSl-0 ENDiX 

NUMLABSl*NUMLABS^llX 

labtabcnumlabsji»curval;x 
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INSYMBQUX 
END EUSe BEGIN eRROR(IQ); SKIP(cQMMa) ENqj* 

IF CURSy«COMMA THEN GENC",",!,/);* 
END UNTIL CURSYACOMMA;X 

IF CURSY^SEmICQlQN THEN BEGIN ERRQRC25JJ SKIP( SEmICqlQN ) ENOJX 
GEN("j"»l#7);X 

IF SYMKINDCCURSY3MNITIAL T HEN iNSYMbQLJX 
END OF LABEL DECLARATION;* 



X*** CONSTANT DECLARATION *** 



IF CURSY»CONSTSY THEN 

BEGIN 

INSYMBOLiX 
DO BEGIN* 

IF CURSY'IDENTIFIER THENX 
BEGINX 

NEwNAMECCuRNAMEWCuRNAME2,CuRLEvEL); INDEX »«t h ISINDExJX 



INSYMBOLU 

IF CURSYaEQLSY THENX 

BEGINX 

inSymbql; cqnstanT(cval'CTypej;x 



T3»«CTYPE; T3,I0CLA5Sl*C0NSTiX 

IF CVAL.U6I83*0 OR CVAL>|023 THENX 

BEGINX 

IF NUMCONSTSJMAXCONSTS THENX 

BEGIN ERRQR(35)> NUMCONSTSiaO ENOJX 

NUMCONSTSI-NUMCQNSTS + UX 

CflNSTTABCNuMCQNSTS]l«CVAL/X 
T3,lNFOI»l023*NUHC0NSTSiX 
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END ELSE T3,INF0»*CVALJX 

NAMETAB3CCURlEV£UlNDEXJt*T3J* 
END ELSE BEGIN ERRQRU6); SKlP( SEMICOLON) END;* 



end else begin eRRQRC9); skipcsemicolon) end;* 

IF CURSY^SEMICOLON THEN BEGIN ERR0RC25); SkIP(SEMICQLQN) ENDU 

IF SYmkINDCCURSY]/InITIAL then insymbol;* 
END UNTIL CURSY*IOENTIFIER;x 

ENO OF CONSTANT DECLARATION;* 
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%*** type Declaration *** 



IF CURSY*TYP£SY then 
BEGIN 

INSYMBQL'X 

DO BEGIN* 

IF CURSY*IDENTIFIER THENX 

BEGIN* 

NEwNAMECCuRNAMEl#CURNAME2,CuRLEVEL)J INDEX »«THI SlNDEx^ X 



INSYMBQtiX 

IF CURSY«EQLSY THENX 

BEGIN* 

INSYMBOLU 

TYPEDECL(CTYPE#TX)J% 

T3J»CTYpEi T3 f IDCL*SSl«TYpES;* 

NAMETAB3CCURLEVEL#lN0EX]|nT3;X 
END ELSE BEGIN ERR0r(36); SKI p( SEMICOLON ) END;* 



END ELSE BEGIN ERRQRC9); SKIPCSEMICOLON) END;* 



IF CuRSYXSEMlCOLON THEN BEGIN ERR0R(25); SKIP (SEMICOLON) END;* 

IF SYMKlN0tCURSY3#lNlTlAL THEN INSYMBOL;* 
ENO UNTIL CURSYMDEnTIFIER;* 

END OF TYPE DECLARATION;* 



X*** VARIABLE DECLARATION *** 



if cuRSy«varsy then 

BEGIN 

varind£Xi«o;x 

DO BEGIN* 

firstvari*varinoex+i;x 

DO lE.fi J.N? 

IF CUrSY«VARSY Or cursy»cqmma then insymbol;x 

IF CURSY«IDENTIFIER THENX 

BEGIN* 

IF VARIN0EX2LISTLENGTH THEN* 
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BEGIN ERR0R(37); VARiNDEXl«Q END;X 

VARINDEXI»VARINPEX+1U 
NEWNAME(CURNAM£i>CURNAME2#CURLEVEl.};X 



VARLI5TCVARINDEX]»»THISINDEX;X 
INSYMBULiX 

END ELSE BEGIN ERRQRC9); SKIP(CQLQN) ENDiX 



END UNTIL CURSY*CQMMAi* 

IF CuRSY^COLON THEN BEGIN ERR0R(26>' SKIP(COLON) ENDJX 

IF CuRSY»COLON THENX 
BEGINX 

insyhbolu 
typeoecicctype»tx);x 

T3t,CTYPEj T3,IDCLASSI»VAR;X 
FOR l»*FiRSTVAR STEP j UNTIL VARjNDEX DOX 
NAMETAB3tCURLEVEL'VARLlSTCl]]UT3;x 
END ELSE BEGIN ERRQRCg6)J SKlP( SEMICOLON ) ENOJX 

IF CURSY/SEMIqOLON THEN BEGIN ErrQrC25>; SKlP(SEMicOLON ) ENqjX 

IF SYMKlNotCURSY]^lNlTlAt THEN iNSYMflQLjX 
ENO UNTIL CuRSYylOENTlFJERU 

declarevarscfalSe,varlist,i,varindex,curlevel)u 
end of variable declarations 



IF NUMpNTRS>0 THENX 
BEGINX 

Cl'*CURN A M£i; C2»»CURN A ME2;X 

FOR H»l STEP 1 UNTIL NuMPNtRs DOX 

BEGINX 

CURnAMEM.PnTrTABHIJI CURNAME2UPNTRTA82Cn;x 
SEARCHTA8(CURLEVEL)iX 



THISlO«»NAMETAB3tCURLE.VEL»THlSl N DEX3;X 
IF FOUNO AND THI SlD» IDCLASS«TYPES THENX 
TYPeTabHPNTrTab3UJJ,PQINTTYPei»THISID.TYPe ELSE ERR0rC62j;» 

end; i 



CuRNAMElt«Ci; CuRNAME2l«C2; 

.end;* 



numpntRs'«o;x 



WHI t E. cyRSYsFUNCSY OR CURSY«PROCSY DO **** PROC/FUnC DECLARATION *** 
BEGIN x***************************** 

fun»*cursy«funcsy; insymbol;x 
i f ... cur s.y • i d e n t if i e r . t h e n x 

BEGINX 
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00003276 


03288 T 


0375 
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0375 


03290 T 


0378 


03291 T 
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SEARCHTABCCURLEVEDU 



THISIQI«NAMETAB3CCURIEVEUTHISINDEXJ;X 

IF FQUND AND THISID i IDCLASSiPROC THEN* 
BEGINX 

INDEXl«THISINDEXJX 

IF THISID, F0RWARDDEF»1 THENX 

BEGINX 

NAMETAB3CTHIStEvEL#THlSlNOeX3.FORNARDO£F««0;X 

NUMFO«WARDSl*NUMFOKWARDS*lJtX 

IFCTHISID.IDCLASS»PR0C AND FUN)URX 

(THiSiD,lDCLASS»FUNC AND NOT FUN) THEN ERRQR<43m 

insymbql;x 
end else begin err0rc2)* skipcsemicolon) endjx 



END EtSEX 

BEGINX 

NEwNAMECCuRNAMEUCuRNAME2,CuRLEvEL); INDEX»«T h *SINOExJ* 



T3»«0; T3»INF0l«NUMPARAMS*i;X 

T3,IDCLASSI»IF FUn THEN FUNC ElSE PRQCJX 

NAMETAB3tCURLEvEL#lNDEX]l«T3;x 

iNSYMBOi; PARAMETERUISTJX 

IF CURSY»COLQN THENX 

BEGINX 

IF NOT FUN THEN ERRQR(48);X 

INSYMBOLU 

IF CURSy»IDENTIFIER THENX 

BEGINX 

search;* 



03294 T 0381 



IF FOUND THENX 
BEGINX 

IF THISID. IDCIASS*TYPES THENX 

Rf P TMl 

Tl»TYPETABKTHlSID,TYPEm 

IF T.FQRMSALFA OR T.FORMsPQlNTERS THENX 

BEGINX 

NAMETAB3tCURLEVEL#lNDEX3,TYPEI»THlSID,TYPE;X 
END EUSE ERR0RC38m 

END ELSE ERR0R(7);X 

END ELSE ERRORCl^X 

END ELSE ERR0R(9)iX 

INSYMBQLJX 
END EL^E IF FUN THEN* 
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00003308 
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00003321 
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BEGIN EHR0RC26); SK IPC SEMICOLON ) END;* 
ENDU 
END ELSE BEGIN ERRQR(9)* SKIP(SEMICOLON) ENDJX 

if cursy^semIcolon then begin errqr<25); ski pc semicolon) endjx 

IF FUN THEN GEN CFUNCTN"*- 7# 2 ) ELSE* 

GENC"PR0CEDU%8>1)J GEN lDC"V"* iOOO*CURLEVEL+INOEX> 5 )i X 

TlwNAMETAB3CCURlEVEL#INDEX3,lNFOi TX I «T+PARAMT ABCT }i % 

IF TX>T THENX 

BE6INX 

6ENC"CM*7)n 

for il't+1 step 1 until tx dox 

begin genjoc*v h ,ioooxccuRlevel+1)+PaRamtabi:ij»pa r amname»5)>x 

if bool&ancparamtabcij.paramfile) thenx 

BEGIN* 

genc"»"»i»7);x 

GENlDC"F",iQOO*CCuRLEvEL*i) + PARAMTABm,PARAMNAME#5)>* 
GENI0( w I m *10O0X<CuRLEvEl + U + PARAMTABCI]iPARAMNAME,5);ji 

end;x 

IF I L ss » Tx THEN GEN<"#"* \,1 )i% 

end;x 

GENC")>"'2'6)iX 

valueParamsi*false;x 

FOR II«T+1 STEP 1 UNTIL TX OOX 

IF P A RAMT A BtlJ.PARAH«I N 0«cONST THENX 

BEG I NX 

IF NOT VALUEPARAMS THENX 
BEGIN GENC W VALUE%6,3>JX 

VALUEPARAMSl»TRUEiX 
END ELSE GENC"#"#W)JX 

GENIDCV^lOOOxCcURLEVEL + D^PARAMTABCn.PARAMNAME^^X 

ENDJX 

IF VALUEPARAMS THEN GEN {">"> 1» 7)i% 



03335 T 

03336 T 

03337 T 

03338 T 

03339 T 

03340 T 

03341 T 

03342 T 

03343 T 

03344 T 

03345 T 

03346 T 

03347 T 

03348 T 

03349 T 

03350 T 

03351 T 

3352 T 

03353 T 

03354 T 

03355 T 

03356 T 

03357 T 

03358 T 

03359 T 

03360 t 
0336J T 

03362 T 

03363 T 

03364 T 

03365 T 

03366 T 

03367 T 



0502 
I 

050« 
( 

050i| 



0500 
0509 



00003335 
I 

00063306 
I 

00003293 

00003337 
i 

00003338 

l 

00003339 



0518 



0543 

0546 
054* 

0548 

I 

0557 
0561 

i 

0575 
0576 
0577 

( 
0586 

( 
0608 

i 
q6 9 

i 
0625 

< 
062S 

( 

0635 
< 

0635 
( 

0644 
0645 
0649 

0651 

0651 

0652 

i 

0661 
0662 



00003340 
00003340 



00003344 



00003346 



00003349 
i 

00083350 
) 

00003351 
i 

00003352 



00003348 



00003354 



00003346 



00003356 



00003362 



0674 



0688 

I 

0688 



00003362 

00003364 
i 

0000336|) 
I 

00003360 
! 

00003367 



X 
% 



DECLARE VAKS( TRUE* PAR AMTAB, T*t # TX* CURLEVEL+1 )J * 
END ELSE GEN("1"M#7)J% 



INSYMBQL'X 

IF CURNAMEl* M 7F0RWAR» AND CURNAME2«"D" THENX 

BE6INX 

NAMETAB3CCURLEVEL#lNDEX] t F0RWARDDEFI»i;X 

NUMFQRWARDSt«NUMFORWAROS«i;X 

GENC n FORWARD ,, #e»nn 

INSYMBOi;* 
END ELSE* 

BEGINX 

CURLEVELMCURLEVEl + liX 

IF CURIEVEL*IA5TREC THEN ERRQR(55);x 
BLOCKTABCCURLEVELJj«NuMBLOCKSl*NUMBLOCKS+iiX 
Tl-CURPUNCJ CURFUNC»*IF FUn THEN INDEX El.SE "ii% 
BLOCK* X*** COMPILE PROCEDURE BODY *** 
REPLACE P0INTER(NAMETABUCURLEVEL#*3) BY OX 

FOR MAXNAME5H WORDSJX 
CURLeVEL»«CURLEVEIM> cURFUN C !*TiX 

toplevel«*cuRlevel;x 

ENDiX 

IF CURSY'SEMICOLON THEN BEGIN ERRQR(25>' SKlPC SEMICOLON ) ENDiX 

GENC; w *l#7)U 

IF $YMKINDCCURSYJ*INITIAL THEN INSYMBQLJX 
END OF PROCEDURE DECLARATIONS 



IF NUMFQRWARDS>0 THEN ERR0R(44)iX 
GEN( M INTEGER M *8#1);X 

for i»m step i until maxtemps dox 

BEGIN GENIQ("T">I»2);X 

IF UMAXTEMPS THEN GEN (»,«, 1*7 ) ELSE GEN( "; "# 1,7 }t X 



ENDJX 

IF CURSY*BEGlNSY THENX 
BEGIN IRR0RC39)iX 

WHILE SYMKlNDtCURSYJXINITIAL DOX 

BEGIN INSYMBQLJ SKlpCSEM JCOLON ) ENDS 

IF(CURSY«TYPESY jOR(cONSTSY$CURSY AND CURSYiPROCS* )THENX 

go to start; X 
end;x 

if curlevel"! thenx 



03368 


T 


0698 


03369 


T 


0701 

00003343 
00003369 


03370 


T 


0711 


03371 


T 


0711 


03372 


T 


0711 


03373 


T 


0713 


03374 


T 


0714 


03375 


T 


07lf 


03376 


T 


0718 

00003376 


03377 


T 


0727 


03378 


T 


0728 

00003373 


03379 


T 


0728 


03380 


T 


0731 


03381 


T 


0732 


03382 


T 


0734 


03383 


T 


0736 


03384 


T 


0739 


03385 


T 


074fl 


03386 


T 


0742 


03387 


T 


074f 


03388 


T 


0748 


03389 


T 


0749 

00003379 


03390 


T 


074* 

00003390 


03391 


T 


0751 

00003391 


03392 


T 


0766 


03393 


T 


0762 

00003290 


03394 


T 


0763 


03395 


T 


0763 


03396 


T 


0763 


03397 


T 


0766 

00003397 


03396 


T 


0773 


03399 


T 


0777 

00003399 


03400 


T 


0789 

00003400 
00003400 


03401 


T 


0808 

00003399 


03402 


T 


0811 


03403 


T 


0811 


03404 


T 


081$ 


03405 


T 


0814 

00003405 


03406 


T 


0816 


03407 


T 


0819 


03408 


T 


0819 

00003403 



03409 T 0819 



X 

X 



8EGINX 

GENCriNI.TC?i5*3)J* 

IF INPUTOECU THEN GEN( »TRUE n »4,4 ) ELSE GENC"FALSE",5,3 )>% 



end;x 

FOR Il*FlR$TFILE STEP l UNTIL NUMFlLES OOX 
IF FILETABCU LSS THEN* 
BEGIN* 

GENC"CHFILCV6j2)jX 

GENlD("F M 'lOOOxcURtEVEU-FIUETAeU3' , l'5)n 
GENC">; w ,2#6);x 

ENDX 

ELsEX 

BEGIN* 

GENID( ,? I»,1000xCURLEvEL + FILETABCI],5>;x 

GEN<"« w ,1,7); GEN<"ByFslZ£ M »7#ni GENC'l «80; ",5,3 ); X 



end;x 
numfiuesi»firstfile-ux 



COMPSTaT; 



X*** COMPILE STATEMENT PART *** 



FOR I»*LASTREC ST E p 1 UNTIL TOPR£C*l DO* 

REPiACE POINTER(NAMETABUI,*3J By FOR MAxNAMES+1 hQROS;* 

FOR il-FjRSTLAB STEP 1 UNTIL NUMLABS DOX 

IF tABfABCntLABOEFsO THEN ERRQRC93)*X 

LASTRECl*TOPReCiX 

NUMtABSl-iABTABTOPjX 

FIRSTL~ABt»FORMERFIR$TLABH 

NUMcONSTSl»CONSTTABTOp<X 

numtypes'«typetabtopjx 

NUMPARAMSlwPARAMTABTOPIX 

IF CURLEVEU>1 THEN GENC "END«>4,5)iX 

end of block; X 



03410 T 
Q34U T 

03412 T 



03413 T 

03414 T 

034J5 T 

03416 T 

03417 T 

03418 T 

03419 T 

03420 T 

03421 T 

03422 T 

03423 T 

03424 J 

03425 T 



03426 T 



03427 

03428 
0342V 

03430 
03431 
03432 
03433 
03434 

03435 
03436 

03437 
03438 
03439 

03440 
03441 



03442 T 
40 IS 988 LONG, 



0820 
0821 

00003411 
083o 

0000341| 

000034U 
085* 

00003413 
0861 

00003410 
O861 
0864 
0865 
0865 

00003418 
0874 

00003419 
0688 

00003420 
0897 

00003417 
0897 
0897 
0900 

00003424 
0913 

00003425 

00003425 

00003425 

0940 

00003423 
0942 

0943 
0943 

0944 
0944 

0948 
0957 
0958 
0963 
0963 
096i| 
0969 
0966 
Q96fi 
0967 

00003441 

0977 

00003150 
NEXT SEG i 



i 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%x%%%%%%%x%%%%%%%%%x%%%%%%%%%%%%%%%%% 

X % 

X X 

X X 

X PART 9| THE MAIN PROGRAM, X 

x ................. % 

X % 

X X 

X % 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%t%%%x% 

X 
X 

INTEGER PROGNAMELENGTHU 

ALPHA PROGNAME,Al f GOLNAME;x 

X 

ALGQLNAMEI« M PASCOOO M *ENTIER<TIMEU>MQD iO)tl7l5l63J* 

ALGQLNAMEt«AlGOUNAMEtENTIER(TIMEU)OlV 7)C1«I5I6]*X 

ALGDiNAMEI*ALGOLNAME*ENTlE R (TlMEC4)M0D 9)[5S5I6];I 

USERl»TlMEC-l)JX 

FILL PASCAUQOL WITH ALGQLN aME'USER; X 

BEGIN* 

file pascrun disk serial "pascrunvdisk" c2mo*i50);x 
array bufc0i9];* 

LABEL ZOnX 
X 

while true do* 

BEGIN* 

REAO<PAScRUN#9#BUFC*3) C£OF3;X 

write(pascalg0l,10#bufc*])u 
end;* 

EOFIX 

end of transfer of run time system;* 



CARDLENGTHl«72iX 

initialize; newcaro;x 



listqption»«checkoptionistrue;x 

Cl*« "J INSYMBQLiX 

IF CURSY'PRQGRAMSY THEN* 

BEGINS 

insymbol;* 

if cursy«identifier thenx 

BEGINS 

pr0gname»«cu«name1.c 35136]; prqgnamelength i aml n(6#curungth >; x 
insvmbql;* 

IF CURSY«LPAR THENX 
BEGlNX 

DO BfGINX 

insymbol;* 

IF CURSY»IDENTIFIER THEN* 
BEGINX 



03444 T 0373 

0344b T 0375 

03446 T 0375 

03447 T 0373 

03448 T 0375 

03449 T 0375 

03450 T 0375 
0345J T 0375 

03452 T 0375 

03453 T 0373 
03434 T 0375 

03455 T 0375 

03456 T 0375 

03457 T 0375 

03458 T 0371 

03459 T 0373 

03460 T 0378 

03461 T 0382 

03462 T 0386 

03463 T 038? 

03464 T 0391 

03465 T 039i 

START OF SEGMENT ********** 41 

03466 T 0004 

03467 T 0006 

03468 T 000* 

03469 T 0006 

03470 T 0007 
0347J T 0007 

03472 T 0013 

03473 T 0017 

00003470 

03474 T 0017 

03475 T 0018 

00003464 

41 IS 21 LONG* NEXT SEG 2 

03476 T 039a 

03477 T 0394 

0000347? 
00003477 
00003477 
00003477 

03478 T 0460 

03479 T 0462 

03480 T 0463 

03481 T 0464 

03482 T 0464 

03483 T 0465 

03484 T 0465 

03485 T 0466 

03486 T 0470 

03487 T 0471 

03488 T 0471 

03489 T 0472 

03490 T 0473 

03491 T 0478 

03492 T 0474 



IF CURNAME1""5QINPUT W THEN INPUTQECL »*TRUE ELSeX 
IF CuRNAMEU"6QuTPUT" THEN OutPUTOECL* »TRUE ELSEX 
BE6IN% 

IF CURUENGTH>6 THEN ERR0RC77);* 

NUMEXTFjl.ESl*NUMEXTFlLES*i;ji 

IF NUMEXTFILESSMAXEXTFILES THEN* 

EXTFILETAB[NUMEXTFIUES3«»CURNAME1 ELSE* 

IF NUMEXTFILES»MAXEXTFKES+1 THEN ERROR(73);X 
ENDU 

END ELSE ERRQR(9)U 

INSYMBOU'X 
END UNTIL CURSY*CQMMA;X 

IF CURSY*RPAR THEN BEGIN ERR0R<46)> SKIP(SEMICOLON) ENDi% 

IF CURSYnRPAR THEN INSYMBQLU 

IF CURSY*SE M ICoLON THEN BEGI N ERRqR(25>; SKIp( SEmICo^ON) EnDJX 

ENO ELSE BEGIN ERRQHC58); SKIPCSEMIcOLON ) END;* 



end El.se begin error(9>; Ski pcsemicqlon) end;* 



END ELSE BEGIN ERR0R(75)J SKIP (SEMICOLON) END;* 



insymbol;* 

curleveli«i;* 

lastreci*m a xtables+i;x 

xx*xxxxxxxx*zxx*xxxxxx**z*xxxx***xxx**xx*xz*x****xx*****x****xx*xx****** 

X * 

BLOCK; X COMPILE USER PROGRAM, * 

X * 

XXX*XXXXX*XXX*XXXXXX*XXXXXX*XX***X***X*XXXXXXXX**XX*X*XX*X*XX*XXXX*XXXXX 
IF CURSY*DPT THENX 
BEGINX 

ERRQR(76>U 

DO BLOCK UNTIL CUrSY»DQT;X 

end;x 

IF EALSE ThENX 
BEGINX 

Endopinputi ERRQRC87); charcnT » *•! ; * 

writechnesjTERmmess);* 
end;* 

IF LlSTOpTlON A ND CHARCNTiO THEN PRINTLjNe;* 



if eRRinx>o then printeRRors;* 
write<linescobl3);x 

WRlTECLlNESCDBL3);X 
IF NUMERRS.O THENX 



03493 
03494 
03495 
03496 
03497 
03496 
03499 
03500 
03501 



03503 T 

03504 T 



03506 T 

03507 T 



035U 
03512 
03513 
03514 
03515 
03516 

03517 
03518 

03519 
03520 
03521 
03522 
03523 

03524 
03525 
03526 
03527 
03528 



0474 
0476 
0481 
0483 
0485 
0486 
0487 
0488 
0491 



03502 T 0«9l 



00003495 
00003492 



0493 
0493 



00003489 



03505 T 0494 



00003505 



0497 
0499 



03508 T 0502 



03509 T 0504 



03510 T 0506 



00003507 

» 

00003488 
00003508 

i 

00003484 
QOQQ35Q8 

00003481 
00003510 



0508 
0508 
0509 
0510 
0510 
0516 

0511 
0511 

0511 

0511 

0512 

0513 

0514 

( 

0514 
0515 
0515 
0517 
0520 



00003520 



03529 T 0528 



03530 T 

03531 T 

03532 T 

03533 T 



0565 
0567 
0571 
0575 



00003525 

I 

00003529 
00003529 
00003529 



BEGIN* 

array ziparrayc0»193# zcoiq]#x 
pointer zippnt;x 

X 

DEFINE ZIPTEXT(TEXT*L)«X 
BEGINX 

zcejuTExm 

REPLACE ZIPPNTIZIPPNT BY PQINTERCZC *1 )*(8.l) FOR L ; * 
ENDiU 
X 

PROCEDURE ZIPNUMCN)/ X TRANSFERS A NUMBER TO THE ZIP BUFFER. 

VALUE N; INTEGER NjX 

IF N$9 THEN ZIPTEXT<N,U EUEX 

BEGIN IIPNuMCN DIv iOj; ZIPTExT CENT IERC N MOO 10), 1) ENDU 



03534 


T 


0576 


03535 


T 


0576 


START OF SEGMENT 


********** 4g 


03536 


T 


0003 


03537 


T 


0005 


03538 


T 


0005 


03539 


T 


0005 


03540 


T 


0009 


03541 


T 


0005 


03542 


T 


0005 


03543 


T 


0005 


03544 


T 


0005 


03545 


T 


0005 


03546 


T 


0005 

00003546 


03547 


T 


oou 

00003547 
OOO0354F 



writealgol;x 

write(*ascalgol#lastline);x 
lock cpi5c algol* save ?_;x 
zippnti*pointercziparrayc*3)*x 
replace zlppnt by " " for 20 wqrdsu 

WRlTE(klNES#NQERRQRS);X 

ziptext<"cc %3); ziptextccompile"^);* 



ZlPTEXTC »»l)i 



ziptext<v«,i); 



ziptextc xalgol w #7); 



ziptextcprOgnaMe»proqn a melength);x 



ZIPTEXTCUSER,7);x 



ziptextc* "#ujx 



IF SAVEFACTOR>0 THEN ZIPTeXT("LIBRARY"#7);X 

if savefactor<o th E n ziptextc w syntax , '#6);x 

ZIPTEXT( f, ;"*t>^* 

ZIPTEXTC w XALGbL l, #6); ZlPTEXTC" FILE"*5)JX 



ZiPtextc caRd» m >6); 



ziPTExHV»,i); 



ZIPTEXfC* 1 SERIAL"V7j; 



ZlPTEXTCALG0LNAME#7);X 



'Zl'PTExf(u5ER»7)II 



ZIPTEXTC"J , 'n>J* 



03548 T 002f 

03549 T 002f 

03550 T 0027 

03551 T 0030 

03552 T 0032 

03553 T OO33 

03554 T 003F 

03555 T 00*0 



03556 T 

03557 T 

03558 T 



0055 



0069 



0084 



03559 T 0098 

( 

03560 T 0107 

( 

03561 T 0U5 

( 

03562 T 0123 



03563 T 0137 



03564 T 0161 



03565 T 0175 



00003555 
0000355S. 

00003556 
0000355$ 
i 

0000355F 
0000355? 

I 
00003556 

0000 3558 
00003559 

0000 3560 
i 

0000356* 
I 

0000356* 

00083562 

t 

00003563 
00003563 

00093564 
00003564 



a 



IF SAVEFACTQR>0 THEN* 
BEGINS 

?IP.TCXT("SAVE""J!S)I ZlPNUM(SAVEFACTOR);» 

ZjPTEXTC";"*!)** 

end;* 

ZIPTEX?("END,"'4);X 

ZIP WITH ZlPARRAY[*m 
END OF COMPILER ZlP ELSE* 



BEGIN* 

INTEGER li% 

SWITCH FORMAT ERRORMESSi !■» 



<" 

<" 
(» 
(" 
C« 

C" 
(« 

«." 
<" 
(« 

<" 
C« 

C" 
(« 

C" 
(» 

c" 

<" 

<". 

<" 

C" 

(»' 
<" 
C" 

C" 

(» 
<" 
?" 
c« 
<" 

C" 
C" 

C" 

c.r 

C" 





i 

2 

3 

4 

5 
6 

f 
6 
9 
IP 
11 
12 
13 

14 
15 

16 
17 

18 
1? 

20 
21 

22 
23 
24 
25 
26 
27 
28 

29 
30 

31 
32 
33 
34 
35 



*** compiler error *** contact the computer centre, ")** 

identifier not defined.*}'* 

identifier already uef ined, " )** 

wrong number of parameters ," ) ** 

Syntax error, ")** 

variable not accessible (hardware restr jct jon ) , " ) ** 

strings mat n 0t be continued from one card to another , «) ,% 

A TYPE EXPECTED*")** 

variable expected.")** 
identifier expected*")** 

INTEGER CONSTANT EXPECTED.")'* 

CONSTANT OF OTHER TYPE THAN EXPECTED,") *X 

V A RIABUE OF ILLEGAL TYPe,")'X 

unrecognizable statement? " )»x 

constant too bj g or too small, ")*x 

undefined label,")** 

for" and case-statements nested too deep ")*x 

expression is of wrong type,«)*x 

HHHQ F f»" EXPECTED.")** 

»»« QQ «»» expected*")'* 

"""ELSE""" WITHOUT CORRESPONDING """THEN""",")** 

ILLEGAL TERMINATION OF ST aTEMeNT ," )** 

"""UNTIL""" EXPECTED,"),* 

H W « T of.HH / n«H o w N T 0""" EXPEcTEOt ,, )'X 

«*«END""" EXPECTEO.")*X 

« MM ;«tfti EXPECTEO_,")'X 

it*,, jmnh EXPECTED,")** 

"""THEN""" EXPECTED. ")*X 

wi«ti|,«H« EXPECTED*")'* 

ONLY NUMBERS MAY BE SIGNED, ")#* 

TOO MANY CASES,")** 

LABEL. USED MORE THAN ONCE,")** 

CONSTANT EXPECTED.")'* 

LABEL NOT IN RANGE C.,9999."),* 

TOO MANY LAJEIS DECLARED," )'* 

TOO MANY CONSTANTS DECLARED,")** 





00003565 




00003565 


03566 


T 0190 


03567 


T 019! 


03568 


T 019J 




00063568 


03569 


T 0199 




00003569 


03570 ' 


r 0206 




00003567 


03571 * 


r 020* 




0000357J 


03572 « 


r 0214 


03573 1 


r 0215 




00003534 


42 IS 822 LONQ, 


► NEXT S E G 2 


03574 1 


r 0577 


03575 1 


r 0577 


START OF SEGMENT i 


********** 43 


03576 1 


r oooe 


START OF SEGMENT i 


********** 44 


03577 i 


r oooo 


03578 1 


r oooo 


03579 1 


r oooe 


03580 1 


• oooo 


03581 1 


r oooo 


03582 1 


oooo 


03583 1 


oooo 


03584 1 


• 0008 


03585 1 


■ oooo 


03586 1 


' oooo 


03587 1 


oooo 


03588 i 


• oooo 


03589 T 


0006 


03590 -\ 


• oooo 


03591 1 


0006 


03592 T 


oooo 


03593 T 


oooo 


03594 T 


oooo 


03595 T 


0006 


03596 T 


oooo 


03597 T 


oooo 


03598 T 


oooo 


03599 7 


oooo 


03600 T 


oooo 


03601 T 


oooo 


03602 T 


0006 


03603 T 


oooo 


03604 T 


oooo 


03605 T 


oooo 


03606 T 


0006 


03607 T 


oooo 


03608 T 


oooe 


03609 T 


oooo 


03610 T 


oooo 


03611 T 


0006 


03612 T 


oooo 



(« 
(" 
<" 
(« 
(•• 
(" 
C" 
C" 
(" 
C" 
(" 
<" 
(" 

<" 

C" 

c» 

<" 
(« 
<" 
(" 
(" 
<" 
(« 



36 
37 
36 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 
51 

51 
53 

54 

55 

56 

58 
59 



wtt«*«t»w EXPECTE0,")'* 

THE LIST IS TOO LONG,"),* 

INVALID TYPE FOR A FUNCTION."),* 

"""BEGIN""" EXPECTED,")** 

TOQ MANY IDENTIFIERS DECLARED* ")** 

ALFA cONSTaNS MaY NOT BE LONGER THAN 7 CHARACTERS."),* 

expression is not of type boolean,"), * 

not proper forward declaration,"),* 

unsatisfied forward declaration,"),* 

too many different types oeclared,"),* 

""")""" expected*")'* 

"""c""" expected,")'* 

a simple type expecteo," )' x 

"•tttarray of array""" and •"♦"array of record""" illegal",* 

" AS FILE TYPE,"),* 

"""FILE OF FILE""" IS ILLEGAL*")** 

SeT BOUNDRY IS TOO Bjq OR TOO SMALL,"),* 

TOO MANY UNDECLARED POINTERS,"),* 

""".,""" EXPECTED.")** 

FIRST VALUE IS GREATER THAN SECOND VALUE,"),* 

TOO MANY RECORDS OECLARED AT ONE TIME,"),* 

THE RECORD CONTAINS MORE THAN 1023 WORDS,"),* 

FILES NOT ALLOWED IN RECORDS,"),* 

"""(""" EXPECTED.")'* 

"""]""" EXPECTED,")'* 



SWITCH FORMAT ERR0RMESS2 t«X 



(" 
<" 

C" 
(" 
(" 
(" 
(" 
(" 
(« 
C" 

(" 
(" 
(" 
(" 
(" 
<" 
(" 
(" 

(" 
<" 

<" 
C" 
(« 

C" 
C" 

<" 

C" 

(" 



60 """ARRAY OF FILE""" NOT ALLOWED,"),* 

61 RANGE OF INDEX IS GREATER THAN 1023,"),* 

62 UNSATISFIED POINTER DECLARATION,"),* 

63 EXPRESSION IS TOO LONG,"), X 

64 ILLEGAL OPERATOR FOR THIS TYPE OF EXPRESSION."),* 

65 INTEGER EXPRESSION EXPECTED*")'* 

66 A SET EXPECTED."),* 

67 PARAMETER OF ILLEGAL TYPe,"),* 

68 procedures not allowed in this context,"),* 

69 illegal use of this type of identifier,"),* 

70 too many parameters declared in the program,")'* 

71 """array of char""" expected,"),* 

72 wrong type of set expression.")'* 

73 too many external files."),* 

74 ILLEGAt IDENTIFIER FOR EXT E RNaL FILE,")'* 

75 """program""" expected,"),* 

76 ""«,""" expected at end of program. "),x 

77 external file identifier may not exceed 6 characters, « ),% 

78 illegal file parameter."),* 

79 Illegal use of file handling procedure. »),* 

80 text-file expected,"),* 

8! pointer variable expected,")'* 

8? only values of type real, integer qr char may be read*"),* 

83 variables in records illegal in this context, "),* 

84 display overflow,")'* 

85 read and write may only be used on textiles. "),x 
8ft referenced object is TOO BIG,"),* 

87 end-of-input DISCOVERED,"),* 



44 IS 



start of 



03613 
03614 
03615 
03616 
03617 
03618 
03619 
03620 
03621 
03622 
03623 
03624 
03625 
03626 
03627 
03628 
03629 
03630 
03631 
03632 
03633 
03634 
03635 
03636 
03637 

590 LONG 
03638 
03639 

SEGMENT 
03640 
03641 

03642 
03643 
03644 
03645 
03646 
03647 
03648 
03649 
03650 

03651 
03652 

03653 
03654 
03655 
03656 
03657 

03656 
03659 

03660 
03661 
03662 
03663 
03664 
03665 
03666 
03667 



0000 
0000 
0008 
0000 
0000 

oooe 
oooo 
oooo 
oooo 
oooo 

oooo 

0006 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

0000 

oooo 

oooe 
oooo 
oooo 
oooo 
oooo 

next s E g 
oooo 
oooe 

********* 

oooo 
oooo 

oooe 

oooo 
oooe 
oooo 
oooo 
oooo 
oooo 

0006 

oooo 

oooo 
oooo 

oooo 
oooo 

oooo 
oooo 
oooo 
oooe 
oooo 
oooo 
oooo 

oooe 

oooo 
oooo 
oooe 
oooo 
oooe 



43 
45 



c" 88 character array expected .♦♦)* x 

<« 89 "«"*»"" expected. ")** 

(" 90 procedures may n ot hav£ any type, h )*x 

c m 91 parameter of wrong kindt")*x 

(" 92 only complete arrays a nd records m a y be th a n5mitted." }*x 

<» 93 declared label not used.")*x 

(» 94 Parameters of this type should nut 

(" 95 assignment of structured variables 

c" 96 input/output not declared,")** 

(" 97 too many files in use,"),* 

{" 98 record identifier expected. ")*x 

(« 99 unrecognizable item.«)*x 

o;x 



be value parameters, ")»x 
not implemented. ")*X 



x 
% 
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HR I TE( lines* errors* numerrs)** 

for ii*o step i until 59 do if eRrc ij then* 

WRITECLlNES,ERRQRMESSUn)i% 

FOR p«60 STEP I UNTIL U? OU JF ERRfiJ ThENX 
WRITE(LINES*ERRORMESS2CI»60 3J;x 
END OF ERROR MESSAGES;* 



IF XREFOPTION THENX 
BEGINX 

Replace pointeRcxreflinec*J) B* " " for 17 nordsix 
heading;* 

SORTCPRInTXREF,XREFFIlE,0,XREFMAX,XrEFCQMPARE,3,100Q,600Q);x 

end;x 

end of compiler, x 
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2 IS 
START OF 
46 IS 

1 IS 
62 IS 



03668 
03669 
03670 

03671 
03672 
03673 
03674 
03675 
03676 
03677 
03678 
03679 
03680 
430 LONG 
03681 
03682 
03683 
03684 
03685 
03686 
03687 
03688 

28 LONG 
03689 

03690 
03691 

03692 

03693 
03694 

03695 T 

630 LONG* 

SEGMENT * 

4 LONG* 

2 LONG* 
69 LONG* 



0000 

oooe 

0000 

0000 
0000 

oooo 
oooe 
oooo 
oooe 

oooo 
oooe 

oooo 
oooo 

NEXT S£G 43 
OOOO 
OOOO 
OOOO 
000? 

oooe 

0015 
0016 
0023 

0000357J 
NEXT SEG 2 
0578 

0578 
0578 
058$ 

00003692 
0604 

0624 

00003690 

0624 

00000027 

NEXT SEG 1 

********* 46 

NEXT SEG 1 

NEXT SEG 

NEXT SEG 9 



FPB 

000^200 
00000000 
4 3250005 
630^007 

00 11°2 00 
OgOOOOOO 

tO 6 3**11 
00 11*4 32 
00767405 
0^32360 



00000000 

00000047 

l** 7 2l62 
^4000000 

00000000 

00000000 
oooooodo 

45i2t000 
55316473 
4J57J663 



00006246 

21*22321 
235 16445 
00000000 
OOOO 2462 
246 2 5 163 
1 546H3 

00222141 
O111O53O 
1 74 l 054 



*45i2325 
4327u47 

24 31*242 
24625163 
5 t 630460 

06606005 

2Q000000 
16345200 

7i06022l 
5213024° 



60042321 

21622321 

60606007 

O26O6OO5 
6005246g 
24625i63 
l0«5 7 536 
0032657 l 
51212657 
2 05i 2 67 



51240002 
43274643 
47 2 16 223 
24625163 
5 16 30400 

0600x402 

0*000000 
42O3644O 

07274266 
645563i0 



OjOOOOOO 

00041400 
5^44500 
O2OO1OO2 
X2O2OOOO 
00000000 
1 3 7 3465 

0043432^ 
01315432 
O2163545 



00000000 
00000000 

06 14OOOO 

00000000 
00000000 

00000024 

* 5 000000 
72446150 

7U53343 
6i7 U 7/ 2 



43314525 

00006751 
00000000 

00000024 
00246 2 5i 
625i6307 

10H12*0 
00543415 
01420741 
2 3l004* 



62606005 
25262631 
0024625 1 
62516303 
6 3056060 

60600524 

2/620000 
7 U 57602 

47406234 
7 1627437 



43314525 

43l0675i 
630x6060 
60600524 
05246 2 li 
62516307 
00013510 
00654321 
pi525i32 
O2412O61 



620003i4 

2526 2 631 
05246251 
62516303 
630500J3 
00000000 

35564ooO 
274J3543 
01307783 
70J75347 



SEGOICT 



OOOOOOOO 
00000000 
0003j500 
OOO323O1 
00033600 
OOO353OO 
OOO375O1 
0004j400 
10027700 

10001*00 
I0027i00 
OOOOOOOO 
43250005 
630i0007 

00 ll°2 00 



OOOOOOOO 
07600007 
76200203 
40S00270 
53OOO436 
21600525 
4ll006i7 
3360J0J3 
00100017 
00100022 

OO1OOO41 
000000fl7 

l** 7 2l62 
14000000 
OOOOOOOO 



00002200 
OOOOOOOO 
00031601 
00032501 
OOO34OOO 
00035700 
OOO374OO 
00042°00 
10024200 
10001506 
IOO2O6OO 

21*22321 
235^445 
OOOOOOOO 
OOOO2462 



00201126 
10100012 
42000150 
7^00325 
35200452 
32300532 
$2100651 
O34O1O77 

OQlOOOOi 
00100023 

00i00042 
432711*7 
243J6242 
24625163 
5i630460 



00002*01 
00020001 
00032000 
00032700 
OOO343OO 
00036i0i 
00037701 
20042i0i 
10000500 

10001600 
20003300 

21622321 
60606007 

02606005 
60052462 



16601100 
36i0005l 
27j00224 

H200322 
54000462 
27700550 

72200702 
II6O1O34 

00100002 
0010002* 
l050u 2 7 

432 7 *643 
* 7 21 6 223 
24625163 
51630400 



20017600 
20027500 
00032100 
00033100 
00034500 
OOO363OO 
OOO4O1OO 
20042200 
10042700 

100*2600 
OOOOOOOO 
00041400 
5i644500 

O2OO1OO2 
12020000 



05600001 
01500050 
32500233 
36200367 
13000476 
04400600 

23500743 
6560i060 

00100004 
00100027 
OOOOOOOO 
OOOOOOOO 
06|40000 
OOOOOOOO 
OOOOOOOO 



00020500 
00031300 
OOO3O2OO 
20033200 
00034700 
OOO365OO 
00040201 
20022400 
10030100 
10003400 
43314525 
00006751 
OOOOOOOO 

00000024 
002*625i 



15100003 
75200103 
66700243 
00600366 
22200|0l 
13500602 
73400751 
0040ii25 

OO1OOOO6 

00100150 
62606005 

5262631 
0246251 

62516303 
63056060 



I 



00022301 
00031400 
00030300 
00033400 
00035100 
OOO342OO 
00040700 
10030000 

10027300 

1002*000 
43314525 
*3l0675l 
630J6060 

60600524 
05246 2 5i 



*350O0l5 
63600132 
17000264 
72i004i6 
64700506 
364OO6O6 
0250i0i2 
00^00020 

00i00021 

001000*0 

62000314 

25262631 
05 2 4625i 

62516303 

638500^ 



PRT 

OOOOOOOO 

OOOOOOOO 
65406600 
67400100 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
66400300 
OOOOOOOO 

6502U00 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
65406100 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
660^2400 
65405700 
OOOOOOOO 



OOOOOOOO 

OOOOOOOO 
06600000 

ooiooboo 

OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

QQ.GOQQQ0 
00300000 

OOOOOOOO 
00200145 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
06100000 

OOOOOOOO 

00000000 

OOOOOOOO 
00201094 
05700000 

OOOOOOOO 



OOOOOOOO 
OOOOOOOO 
65406700 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
65400400 
OOOOOOOO 

00606660 

OOOOOOOO 
OOOOOOOO 
65020208 

OOOOOOOO 
OOOOOOOO 

OOOOOOOO 
65406500 
65406400 

OOOOOOOO 



OOOOOOOO 

OOOOOOOO 
06700000 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

00000000 

OOOOOOOO 
OOOOOOOO 

00000000 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

0000005.0 
OOOOOOOO 

00400146 

OOOOOOOO 

00066600 

OOOOOOOO 
OOOOOOOO 

00200333 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
06500000 
06400000 

OOOOOOOO 



OOOOOOOO 

OOOOOOOO 
65407000 
65027200 
OOOOOOOO 
OOQOOQOQ 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOflOOOQ 
65027600 
65407500 
65021200 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 

65024300 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
65402000 
OOOOOOOO 



OOOOOOOO 

OOOOOOOO 
07000000 
0020H63 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
0100J347 
07500000 
00200202 

60660606 

OOOOOOOO 
OOOOOOOO 
00200 363 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
02000661 
OOOOOOOO 



OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

66407600 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
65400200 
OOOOOOOO 
OOOOOOOO 
65400500 

OOOOOOOO 
OOOOOOOO 
65024400 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
66401100 
65402100 
OOOOOOOO 



OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
07600000 

00000000 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
00200105 
OOOOOOOO 
OOOOOOOO 
00501432 
OOOOOOOO 
OOOOOOOO 
00200365 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

ouooooo 

02100000 
OOOOOOOO 



OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

65407200 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
65024100 
OOOOOOOO 
OOOOOOOO 
66405600 
OOOOOOOO 
65407300 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
66401000 
OOOOOOOO 
OOOOOOOO 



OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

07200000 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
00200273 
OOOOOOOO 
OOOOOOOO 
05600000 

OOOOOOOO 
07300000 
OOOOOOOO 

OOOOOOOO 

00000000 

OOOOOOOO 
01000640 

ooeooooo 

OOOOOOOO 



65406200 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
65020100 
OOOOOOOO 
OOOOOOOO 

OOOOOOOO 
64021400 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
65407400 
65406000 
OOOOOOOO 
65401200 



06200000 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

00000000 

OOOOOOOO 
OOOOOOOO 

00000000 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

00200133 
OOOOOOOO 
OOOOOOOO 

OOOOOOOO 
00200323 

OOOOOOOO 

OOOOOOOO 

00000000 
07400000 

06000000 

00000000 

01200746 



65401300 
0000000Q 
66402300 
65403000 
00000000 
00000000 
00000000 

00000000 
65404500 

65405000 
00000000 

654 5200 
660«i700 
65406i00 

00000000 

00000000 



01300630 
00000000 
02301672 
03000325 

00000000 

00000000 
00000000 

00000000 
04500612 

05001723 
OOOOOOOO 

0520000 6 
00201102 
O61OOOOO 

OOOOOOOO 
OOOOOOOO 



65031700 

65402200 
6540250Q 

OOOOOOOO 
65403300 
65035500 
65404000 

OOOOOOOO 
65037600 

OOOOOOOO 
00000000 

66q41300 
OOOOOOOO 

65020200 
OOOOOOOO 
OOOOOOOO 



01400755 

022Q1370 
02500360 
OOOOOOOO 
3300 126 
O36OO213 
04001274 

OOOOOOOO 
0440l3?6 

OOOOOOOO 
OOOOOOOO 

00201101 

OOOOOOOO 

Q0200333 

OOOOOOOO 
OOOOOOOO 



66401500 
OOOOOOOO 
66402600 
65403100 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

65404400 

OOOOOOOO 
66405100 

66 42300 
65407i00 
65O243OO 

OOOOOOOO 
OOOOOOOO 



01501403 

OOOOOOOO 
02600000 

03100350 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

OOOOOOOO 
04400000 

OOOOOOOO 
05100022 
05300032 
07^00000 
OO2OO363 
OOOOOOOO 
OOOOOOOO 



66401400 

65033000 
OOOOOOOO 

OOOOOOOO 
65403400 
66035600 
65404100 

OOOOOOOO 
65404600 

OOOOOOOO 
66024500 

664 54 
65406300 
65024400 

OOOOOOOO 
OOOOOOOO 



01400114 

0230l?05 
OOOOOOOO 

OOOOOOOO 
03400000 
03600207 
04100042 
OOOOOOOO 
04601704 

OOOOOOOO 
00200612 

5 400000 
06300000 
00200365 
OOOOOOOO 
OOOOOOOO 



65401600 

OOOOOOOO 
65402700 
65404300 
OOOOOOOO 
66403600 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 

OOOOOOOO 
66041600 

664q55qo 
65407300 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 



01600266 
OOOOOOOO 
02700714 
04300362 
OOOOOOOO 
O36OO21O 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 

OOOOOOOO 
05200334 

55 00800 
07300000 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 



65401700 
66402400 
OOOOOOOO 
65403200 
65403560 
65403700 
65404200 

OOOOOOOO 
65404700 

66041200 
OOOOOOOO 

644q5300 
64021400 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 



01700322 
02400000 
OOOOOOOO 

03200532 
03500637 

03700321 

04200132 

OOOOOOOO 

04700291 

05100023 
OOOOOOOO 

Q53Q000 3 
00200323 
OOOOOOOO 

OOOOOOOO 
OOOOOOOO 



SEGZERQ 

OOOOOOOO 0000U34 
OOOOOOOO 00000001 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 



OOOOOOOO 00000077 OOOOOOOO 0000H37 

OOOOOOOO 57500014 OOOOOOOO OOOOOOOO 

OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 

OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 

OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 



OOOOOOOO 00000430 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 



OOOOOOOO 0000H32 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 



OOOOOOOO 00000044 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 
OOOOOOOO OOOOOOOO 



NUMBER Of ERRqR s DEjECyED 9 0. COMPILATION T l "E * 701 S^CONDs. 

PRT SjZE » 280; TOTAL SEqMENT SjZE » 15832 *QRDS* DjSK SlZE * 630 SE 6 SJ NO, P G M, SE G S » 62 

ESTI m aTEO CQRE STqraGE REQUIRED b 24408 WqrDS, 

estimated auxiliary memory required » o words. 

NUMBER OF CARD-iMAqES PROCESSED ■ 3685, 



I 



A 

0005 *0000047t* 

00000539 00000542 00000549 00000555 

A 

0002 *00000597* 

0000059? 



A 

0002 *00000604* 



00000606 00000611 



A 

0002 *00Q0061** 

0000062? 



ABSX 

0004 *00000318* 



#00000331* OOOOO332 00000334 *00000334* 00000334 00000335 #00000335* 00000335 OOOOO336 00000337 



ADOAOOR 

0010 *00001165* 



0000H78 *00001228* 



ADDR 

0037 *00002816* 



#00002821* 00002849 #00002849* 00002854 00002858 00002880 #00002881* 00002881 00002915 



ALFA 

0002 *°000009l* 



00000515 00000763 0000x556 00001752 00001849 0000j854 0000j972 0000i977 00Q8i995 0000j996 0000209g 
00082112 00002314 00002662 00002666 00002898 00003204 00003326 



A^FACONST 

0002 *00000196* 



00000751 00001004 00001556 00001948 00001964 0000J995 00002314 00002662 00062666 00002898 00003204 



AUFANUM 

0002 *00000860* 



00000893 00000899 00000903 



ALFANUMi? 

0002 *OOOOO860* 



00000893 00000899 00000903 



AUFATYPE 

0002 *00000163* 



♦00000514* 00000754 O000i508 00001523 00001527 0Q00i556 00002314 00002662 00002666 00002898 00003204 



AlGQLCARD 

0002 *00000130* 



00000362 OOOOO363 00000364 00000365 00000487 



ALGOLCNT 

0002 *00000132* 



OOOOO281 
*00000330 

OOOOO345 

000*1809 
*0000l903 

000©i906 

♦000Ql 9 9 
0000i9i2 

*000*i9j4 
0000i928 

♦0000i950 

♦0000*952 
0000i96l 
0000^66 

♦0000*971 

♦00001977 
00001979 

*0 00.0 1994 

*0000i997 
♦00002001 

*00Q.0.20l2 
#00002016 

OOOOgOSO 

00002038 

OO062648 

00002068 

0000? 090 
00082101 



00000 2 84 

* OOOOO33O 
OOOOO346 
00001882 

* 00001903 
0O00J9O7 

* O0OO 19 O 9 
*0000i9i2 

* 00001914 
0000i929 

* 00001950 

* 0000i952 
•0000 1961 
*0000 i966 

* 0000i97i 

* OOOOI977 
♦00001984 

00 OP 1994 
00001997 
00002001 
OQOQ. jfl-ij. 
00002016 
00002032 

♦00002038 
OOOO2O65 

♦00002068 

* 0000? 090 
*00002i0i 



00000290 
00000340 
*00000 3 46 
♦00001882 
*0000l90a 
♦000OJ9O7 

*0000 19 9 

* 0000i9i2 
♦00001920 
*0000i929 
♦00001950 
*0000i95? 

* 00001961 

* 0000i966 
♦00001975 

*0000t977 

* 00001984 
.*0000l995 

*0000l99 7 
♦00002001 
* 000 0-201 3 
♦00002026 
♦00002032 

* 00002038 
*00002065 

* 00002068 

* 0.000 2 09Q 

* 00002101 



OOOOO293 
♦00000340 
' OOOOO346 

OOOO1882 
OOOOI9O4 
00001907 

ooooi 9 o 9 

*0000i9i3 

♦ 00001920 

♦ 0000i929 

♦ 00001950 

♦ 0000i957 
♦00001961 
*0000i966 

♦ 0000 1975 

♦ 00001977 
00001990 

0000 1995 

0000i997 
00002001 

OQ002Q13 
00002026 

OOOO2O32 
♦0000 20 39 

♦ OOOO2O65 
♦00002068 

♦0000? 090 
♦00002108 



OOOOO3O6 

♦ OOOOO341 
*00000|65 
♦00001902 
♦OOOOI9O4 
♦0000J907 

♦oooo* 9 o 9 

♦ 0000i9i3 
00001927 

♦0000i929 
♦00001950 
*0000i959 

♦ 0000i96i 
♦♦0000i967 

♦00001975 

♦00001978 
♦00001990 

♦0000J995 
♦0000i997 
•00002003 
♦00002013 
♦00002027 
♦OOOQ2O36 

♦ 00002039 
00002067 

♦ 00002068 

♦ 0OQO 2 090 

♦ 00002108 



000003H 

♦00000341 

**00000<j87 

♦ 0000i902 

♦ OOOOI9O4 

♦ 00001908 

♦ 0000 19 9 
*0000i9i3 
♦0000i927 

♦ 0000i93i 

♦ 00001950 

♦ 0000i959 
♦00001962 

♦ 0000i967 
0000*975 

00001978 
00001990 

0000*995 

0000i997 
00002003 
00002014 
00002027 
OOOO2O36 
♦00002039 
♦00002067 
♦00002068 

00002 lQl 
♦00002U5 



00000323 

♦ 00000341 
**0000i809 

♦0000i902 

0000190$ 
♦00001908 

♦0000 l9 9 

♦ 0000i9i3 

♦ 00001927 
*0000i93i 
♦00001951 

0000i960 

♦ 00001962 
♦0000i967 
♦00001976 

♦00001978 
00001991 

00001996 
*0000i997 

00002012 
*000020l4 
♦00002028 
♦OOOO2O36 

♦ 00002039 

♦ 00002067 
♦♦00002076 

♦0Q0Q21Q1 

♦ 00002115 



OOOOO326 
00000344 

♦ 0000i809 

♦ 00001902 
♦0000i90s^ 

♦ 00001908 

♦ 0000 1912 
*0000i9i3 # 
♦00001927* 

♦ 0000t93l 

♦ 0000l95l 
*0000i960^ 

♦00001962* 
♦♦0000i968 # 

♦ 00001976 

♦ 00001978 
*0000l99i# 

♦00001996* 

♦ 00001997 
♦00002012* 

♦ 00002014 

♦ 00002028 

♦ 00002036 
♦00002039* 
♦00002067 # 

♦ 00002076 

♦ 000Q 2 l0l 

♦00002129^ 



♦00000326 
♦00060344 
♦0000i809 

♦00001902 

OOOOI9O5 

♦00001908 

♦ oooo m2 

00001913 
♦00001928 
♦0000i940 
♦00001951 

0000 i960 

00001962 

000@i968 

♦00001976 

♦00001978 
00001991 

00001996 

00001998 

00062012 

♦ 000020j.4 

00002029 
OOOO2O37 
00002039 
000^2067 
♦00002080 

♦oooo 2l ot 

00002129 



♦ 00000329 

♦ 00000345 

♦ OOOO18O9 

♦ 00001902 
♦00001905 

♦ 00001908 

♦ 0000 1912 
*0000i9i4 

♦ 00001928 

♦ 0000i«40 

♦ 00001951 
0000i96i 
00001966 

*0000i968 

♦ 00001976 

♦ 00001979 
♦00001994 
♦0000 J996 
♦00001998 
♦00002012 

♦ 00002014 
♦00002029 
*00002037 

00002048 
♦00002067 

♦ 00002080 

♦ 0000 2l 0l 
00002130 



OOOOO33O 
♦OOOOO345* 
♦0000i809^ 
♦00001902* 

♦*0000l906* 
00001909 

♦0000 1912 * 

* 0000i9i4 

♦00001928^ 
00001950 

00001952 
*0006i96i A 

♦00001966* 

* 0000l97i 
00001977 

♦0000l979 # 

* 00001994 

* 00001996 

* 00002001 

* 00002012 

000020*6 
♦♦00002030* 
♦♦00002038^ 
*00002048* 

* 00002067 
*Q0002090* 

♦oooo 2 ioi* 

♦00002130* 



00002130 
00002139 

00002154 

000^2167 

♦00002220 

•00002224 

000022*0 

♦00002269 

♦00002295 

00002319 

00002345 

00002363 

00002392 

#00002433 

0000244? 

#00002456 

♦0006245$ 

000024^4 
00002958 

#00002968 
00062976 

*OOO02 9 82 

#00002988 
OOOO3O15 
00003024 

*0000303l 
00003036 

♦000030*3 
00003048 

♦OOOO3O53 
00003060 

♦0000316* 
OOOO3339 
00003346 

♦OOOO3354 
00003367 
00003397 
00003412 
0000342o 
00003441 



#00002130 
♦00002146 

♦00002i54 

♦09002167 

♦ 00002220 

♦ 00002224 
#00002260 

♦ 00002269 

♦ 06002295 
♦00002319 
♦00002354 
#00002363 

00002393 

♦ 00002433 
*00002447 

♦ 00002456 

♦ 0000245 Q 
#06002545 

00002961 

♦ 00002968 
00002977 

♦ 09002982 

♦ 00002988 
♦OOOO3O16 
♦00003024 

♦ POOO3O3I 
#00003036 

♦ 000030^ 
#00003048 

♦ 00003056 
00003061 

♦ 00003169 
♦OOOO3339 
♦00003349 

♦ 0000 3354 
♦00003369 

00003399 

#00003412 

0000 3 424 



♦ 00002130 

♦ 000023,46 

♦ 00002154 

♦ 000021?! 
♦00002220 

0000223q 

♦ 00002260 
♦00002269 

♦000022'? 

♦ 00002319 

♦ 00002354 

♦ 00002363 
♦000023^3 
#00002433 

♦ 0000244? 
#00002456 
♦00Q02* 5 9 

♦ 00002545 
#00002961 

0000g969 

#00002977 
♦00002982 

00002' 9 2 

♦ OO003O16 

♦ 00003024 
♦OOOO3O3I 

♦ 00003036 

*0000 3 0* 4 

♦♦0OOOJO49 

#00003056 

♦ 0000306 J 

00003J73 

♦ 00003340 

♦ 00003349 
00003356 

♦ 00003369 
♦00003399 

♦ 00003413 

*0000 3424 



#00002130 
♦00002146 

♦00002154 
♦0000217J 

♦ 00002220 
♦00002230 

00002268 

♦ 00002277 

♦ 00002297 
♦00002332 

00002355 
♦00002377 

♦ 00002393 

♦ 00002433 
♦0000244? 

♦ 00002456 

♦ 000024S9 
#0000 2545 

♦ 00002961 
♦00002969 

♦ 00002977 

♦ 00002982 
#00002992 
♦OOOO3O16 

00003027 

♦ OOOO3O3I 
00003038 

♦ 000030^* 

♦ 00003049 

♦ 00003056 

♦ OOOO3O61 
♦ 00003j;73 
♦OOOO3346 

00003350 

♦OOOO3356 

00003376 

♦ 00003399 
#00003413 

♦ Q00Q3425 



**0O002l3l 

♦ 00002146 

♦ 00002154 

♦ 00002i7j 
♦00002220 

♦ 0000223o 
♦00002268 
#00002277 
♦00002311 

♦ 00002332 
♦0000g355 

♦ 00002377 
♦00002393 

00002434 

♦ 0000 2447 
00002457 

*00002*S 9 

♦ 06002545 

00002962 

♦ 00002969 

00002978 
00002984 

♦ 00002992 

♦ OOOO3O16 
00003028 
000030 32 

#00003038 
000030*5 
*00003049 
♦00003056 
♦00003061 

♦ 00003173 

♦ 00003340 
♦00003350 

♦♦00003362 

♦00003376 

♦00003400 

00003413 

♦0000 34 25 



♦ 00002131 
♦00002146^ 

00002167 

♦00002171^ 

♦ 00002220 
0000224a 

♦ 00002268 

♦ 00002280 

♦ 000023U 
♦00002335^ 

♦ 00002355 
♦00002377^ 

♦♦00002403^ 
♦00002434^ 
♦0000g447^ 
♦00002«57^ 

♦ 000024^9 

#00002584* 

#00002962^ 
♦00002970^ 

♦00002978^ 

♦00002984^ 

OOOO3O13 

0000 30 i7 

♦00003028^ 
OOOO3O33 

♦ 00003042 

♦ooooJq* 6 * 

♦ 00003049 
##00003058* 

♦ OOOO3O61 
♦00003178+ 
♦00003340^ 

♦ 00003350 

♦ OOOO3362 

♦ 00003376 

♦ 00003400 
00003418 
000Q3425 



♦00002131 
00002146 

♦00002167 
00002171 
00002224 

♦00002248 
00002269 

#00002280 

♦0000231* 
00002335 

♦00002355 
00002377 
OOOO24O3 
00002434 
00002447 
00002457 
0000246 J 
00002584 

#00002963 
00002970 

00002978 

00002984 

#00003013 

♦OOOO3O17 

00003029 

♦OOOO3O33 

♦00003042 

000030 46 
#00003050 

00003058 

♦00003062 

00003178 

OOOO334O 

00003351 

♦OOOO3364 

000033'! 

♦00003400 

♦00003418 

♦000Q3425 



♦ 00002131 
♦00002146 

♦ 00002167 
♦00002i7i 
♦00002224 

♦ 000022*8 
♦00002269 



00002280 

00002919 

00002342 

00002355 

OOOO2981 

♦00002431 

♦00002445 

♦00002*4? 

♦00002*5? 

♦00002461 

#00002584 

♦ 00002963 
00002973 

♦00002978 
♦00002984 

♦ 00003013 

♦ OOOO3O2O 

♦00003029 

♦ OOOO3O33 

♦ 00003042 
*000Q3Q*6 

♦ 00009050 
♦00003058 

♦ 00003062 
♦00003187 

00003344 
♦00003951 

♦ OOOO3364 
♦00003391 

♦ 00003411 
♦♦00003419 

♦ 0000 3 *25 



♦00002131 

♦ 00002146 
♦00002167 

♦ 00002l?i 
00002224 
00002292 
00092269 
00002295 

♦00002319 
♦00002342 
♦00002355 
♦00002381 

♦ 000@243i 

♦ 00002445 

♦ 00002447 

♦ 00002417 
**OOO02«f4 

♦ 00002584 
♦00002967 
♦00002973 

♦ 00002978 

♦ 00002984 
#00003014 
♦OOOO3O2O 

♦ 00003029 
♦00003033 
#00003042 

♦ QOOQ3o*6 

OOOQ30S3 

♦ 00003098 
00003066 

♦ 00003187 

♦00003344 

♦ 00093351 
♦OOO93365 

♦ 00003391 
♦00003411 

♦ 00003419 
♦00003425 



♦ 00002131 
00002153 

♦ 00002167 
♦00002220 
♦00002224 
♦00002252 
♦00002269 

♦00002295 

♦ 00002319 

♦ 00002345 

♦ 00002355 

♦ 00002381 
•00002433 

♦00002445 
♦00002448 
♦00002458 

♦ 0000 24 ? 4 
♦00002584 

♦ 00002967 

♦ 00002973 
♦00002981 
♦00002984 

♦ 00003014 

♦ OOOO3O2O 
♦00003030 

1* OOOO3O36 

♦ 00003042 
000Q3Q*? 

*O0O03053 

♦00003058 

♦00003066 

00003190 

♦ 0000 3346 
00003352 

♦ OOOO3365 
00003397 

♦ 000034U 
00003420 

♦ 00003441 



♦00002139* 
♦00002153^ 
♦00002167^ 

♦ 00002220 

♦ 00002224 

♦ 00002252 
00002269 
00002295 

♦00002319* 
♦00002345^ 
♦00002355* 
♦00002392^ 

♦ 00002433 

♦ 00002445 

♦ 00002448 

♦ 00002458 

♦0000 2 *7** 
•♦00002958 ♦ 
00002968 
♦00002976^ 

♦ 00002981 

♦ 00002988 

#00003015^ 
♦OOOO3O24* 

♦ 00003030 
♦OOOO3O36* 

00003043 
*0Q00304?* 

♦ 00003053 
♦♦00003060^ 

♦ 00003066 
♦00003190^ 
♦00003346* 
♦ 0000335t^ 
♦000C336f # 
♦00003397^ 
♦00003412* 
♦00003420^ 

♦0000 3fta t* 



ALGOLNAME 

0002 ♦00003457^ 



♦0000345^ 0000346Q ♦0000346o^ O0OQ346! ♦0000346^ 00003463 00003563 



ALGOLPNT 

0002 ♦00000131^ 

00000283 00000292 

♦00000365* 00000366 

06o6i9d? 00001908 

00001940 00001950 

00001971 OQ001975 

00091996 09001997 



OO0OO3O8 

♦00000487* 

00001909 

00001951 
00001976 
00001998 



00000310 
00000488 
00001912 

00001952 
00001977 
00002001 



00000325 
00001809 
00001913 
00001958 
00001978 
00002003 



00000330 
00001862 
00001914 
00001960 
00001979 
00002012 



00000338 
00001902 
00001920 
00001961 
00001984 
00002013 



00000341 
00001903 
00001927 

00001962 
00001990 
00002014 



00000343 
00001904 

00001928 
00001966 
00001991 
00002016 



00000345 
00001905 

00001929 
00001967 
00001994 
00002026 



00000346 
00001906 
00001931 
00001968 
00091999 
00002027 



00002028 
O0Q02068 
00002146 
00002268 
0Q0Q2345 

00002434 
00002584 

00092977 
00003017 

00003043 
00003061 

OOOO3346 

00003369 

000034?0 



00002029 
00002Q76 
00002153 
00002269 
00002354 

00002445 
00002958 
00002978 
00003020 
00003044 
0000 3062 
OOOC3349 

00003376 
00003424 



00002030 
00002080 
00002154 
00002277 
00002355 
00002447 
00002961 

0.0 Q 29 8.1 
00003024 
00003046 
0000 3066 
0000 3350 
00003391 
00003425 



00002032 
00002090 
0000ji67 
OOOO228O 
00002363 
00002448 
00002962 

0O0Q2982 
00003028 
0000|047 
0000J169 

OOOO3351 
OOOO3397 
00003441 



00002036 
00002101 
00002i7j 
00002295 
00002377 
00002456 
00002963 

00002984 
00003029 

00003048 
00003173 

00003352 
00003399 



00002037 
00002108 
OOOO222O 
00002297 

000Q23B1 
00002457 
00002967 

00002988 
00003030 
OOOO3O49 
00003178 
OOOO3354 
00003400 



00002038 
00002115 
00002224 
00002311 
00002392 
00002458 
00002968 
00002992 
00003031 
00003050 
00003187 
00003356 
00003411 



00002039 
00002129 
00002230 
00002319 
0000*393 
00002459 
00002969 

00003013 
00003033 
OOOO3O53 
0000 3190 
OOOO3362 
00003412 



00002048 
00002130 
00002248 
00002332 
00002*03 
00002461 
00002970 

0000J014 
00083036 
OOOO3O56 
00003339 
OOOO3364 
00003413 



00002065 
00002131 

00002252 
00002335 

00002*31 
00002474 
00002973 
00003015 
00003038 
00003058 
00003340 

00003365 
00003418 



00002067 
00002139 
00002260 
00002342 
00002433 
00002545 
00002976 
000030J6 

00003042 
0000 3O6O 
00003344 
00003367 
00003419 



AUST 

0003 *000Q0189* 

00001051 



ANOSY 

0002 *00000198* 



00000478 00000920 00001640 00001651 



ARRAYS 

0002 *00000096* 



OOO0H95 OOOO2O61 00002124 00002725 00002985 



ARRAYSY 

0002 *00000208* 



00000940 00002714 



ARRAYVAR 

0038 *00002945* 



00002956 *00002959* 000029 67 *000029 67 * 000029 7 6 *000029 77 * 00002991 *00002992* 00003q66 



ARROW 

0002 *OO0OO203* 



00000477 00000478 0000H84 00001264 00001265 00002688 



ARRSTRUCT 

0036 *00Q0264{* 



*00002740* 00002744 *00002744* 



ARRTYPE 



0002 *00000096* 

00001200 00002064 00002127 *00002725* 00002743 *00002744* 00002985 

ASSIGN 

0026 *00002203* 

♦0000221** 00002231 00002236 

ASSIGNMENT 

0002 *00002200* 



0000223? 00002562 00002586 



assignsy 

0002 *00000203* 

00001029 0000221° 00002211 00002235 00002236 00002425 00002427 00002*28 

ASTERISK 

0002 *00000197* 

00000478 00001631 00001638 00001651 

AX 

0002 *00000580* 

00000591 *0000059l* 00000592 *00G00592* 00000593 

A0 

0002 *00000579* 

*00000606* 00000608 00000610 *00000627* 00000628 00000647 00000648 00000650 00000651 

At 

0002 *00000579* 

*000$0606* 00000609 *00000627* 00000628 00000649 

A2 

0002 *OOOOO580* 

#00000627* 00000628 00000637 00000640 *Q00Q0642* 00000642 00000652 00000653 

8 

0002 *00000604* 

00000606 00000611 



BEGINNUM 

0027 *00002244* 



00002247 #00002247* 0000224? 00002260 



BEGINSY 

0002 *00000204* 



0000093? 00002250 00002588 OOOO34O2 



BITPATTERN 

0002 *00000214* 



OOOO13O8 00001443 0000J566 0000i6l9 0000l647 0000j668 0000i70i 00001708 0008i728 0000i754 00001769 
0000i7«6 0900x799 OOOO18O4 OOOO1818 00002269 00002355 000023*3 



BLANK 

0002 *00000858* 



00000869 00000084 00000887 00000892 00000895 00000901 OOOOO9O3 00000967 00080968 00000971 OOOOO975 
00000982 00000983 00000985 00000986 OOOO1OO4 0000^07 OOOOjOiS 0000j027 OOO0jO29 OOOO1O34 OOOO1O33 
00001035 00001037 00001040 00001043 00001056 OOOO1O61 0000i068 00001069 00001072 



BLOCK 

0002 *00003149* 



OOOO3384 OOOO3442 00003516 OOOO3522 



BLOCKTAB 

0002 *00000138* 



00000591 00002795 00003382 



BOOLEXPR 

0002 *00001814* 



0000i82i 00002269 00002355 000023*3 



BOOLTYPE 

0002 *00000163* 



#00000518* OOOOO526 00001437 00001443 0000i563 0000i645 000016*9 00001799 0000l8l7 00001973 00002269 
00002355 00002393 



BRACKETSINWITH 
0002*00000079* 



00001174 *00002506* 



BUF 

0041 *0000346$* 

00003471 00003472 

eo 

0002 *00000579* 

*00000606* 00000^08 00000610 



Bl 



0002 *000Q0579* 

•00060606* 00000609 



0002 *00000863* 

0000086* 00000 

00000900 *00000 

00000968 00000 

00000983 *00C00 

ooooioo 7 *ooooi 

0000i034 *0000i 

00001045 00001 

0000i065 *00C0i 



872 00000884 
901**00000903* 

969 *0000097i* 
983* 00000983 

0l3**O000l0 27 * 
035* 00001036 
046 00001047 
068* 00001069 



♦00000887* 
00000903 * 

00000972 

00000984 

O000*0 27 * 
*OOO0iO37* 

00001046 
*0000i069* 



00000889 0000089t *00000e92* OOOO0Q93 00000894 *00000895* 00000e99 
00000903* 00000903 00000964 00000966 *00000967* 00000968 *00000968* 
OOOOO974 *00000975* 00000976 *00000977* 00000977 00000980 *00000982* 
00000985 #00000985* 00000986 *00000986* 00001002 *0000 1004**0000 1007* 
0000l027* 00001028 *0O00l029* OOOOio3o *0000l08l* 00001Q32 *QO00l033* 
00001038 *0000i040* 0O00i04l *0000t043* 00061043 *0000l043* 00001044 
00001049 00001051 00001055 00001056 *0008 1056**0000 1061* 00001062 
00001070 *0000l072* OOOO228V *00003479* 



0029 *00002289* 

00002327 00002329 



CAILGEN 

0016 *OO00l737* 



*0000l764**0000l777* 00001798 



CARD 

0002 *00000035* 



00000269 00000686 00001067 00003477 



CAROCNT 

0002 *OOOOOQ34* 



00000253 00000275 00000362 00000409 0000059i 00000886 
00001198 OOOOI3I4 OOOOI4I8 0000ia69 OOOOI48O 00001*87 
000«l962 00002001 00002039 00002l0l 00002146 00002222 



*00000886* 
OOOOI494 

00002432 



00000886 000©1067 *0000i067* 00001152 
00001609 00001664 00001909 00001914 
00002446 *OOO03477* 00003477 00003529 



CARDLENGTH 

0002 *00000J60* 



0000027J 00000398 00000886 
00001067 *00003476* 00003477 



00000958 



00001054 *0000i055* 00001056 *00001056* 00001057 *000Ql058# 00001059 



CAROPNT 

0002 *00000l3i* 



00000270 00000g7l 00000871 00000885 00000886 #00000886* 00000867 

*00000959* 00000959 00000960 00000967 00000968 00000971 00000975 

00001004 00001007 OOOOlOU 00001027 00001029 00001031 00001033 

00001056 00001061 00001066 00001067 *0000j067* OOOO1O68 0000i06» 



00000892 

00000982 
00001035 
00001072 



00000895 

00080983 

OOOO1O37 

*OOO03477* 



0000090i 

00000985 
00001040 
00003477 



00000903 

00000986 
00001043 



CASEHASH 

0029 *00002287* 

00002326 






CA5EHASH1? 

0029 *00002287* 

00002326 



CA5ENUM 

0029 *00002289* 



00002292 *00002292* 00002292 00002345 



casepart 

0037 *00002819* 



00002824 *00002857* 



CASESTAT 

0002 *00002285* 



00002348 00002590 



CA5E5Y 

0002 *00000205* 



00000388 00000933 00002590 00002824 



CASETAB 

0029 *00002288* 



00002327 00002329 



CASETYPE 

0029 *O0002289* 



*00O82297* 00002298 *00002299* 00002301 00002304 00002317 *000023l7* 00002318 



CASETYPE 

0037 *00002816* 



*00002875* 00002875 00002876 00002880 00002890 00002901 *QOQQ290l* 00002903 



CASETYPEID 

0037 *00002819* 



00002863 *00002875* 



CH 



0002 *00000128* 

0000029! 
00000975 
OOOOIO3I 
OOOO19O4 

00O0l9 6 8 
00002319 
OOOO3O13 

00003419 



OOOOO489 

00000982 
00001033 
OOOO19O5 
0000?0l2 

00002431 
OOCO3O2O 
00003424 



00000872 
00000983 
OOOOIO35 
00001906 
0000 2 0l3 
00002445 
00003049 



00000887 
00000985 
0000i037 
00001927 
00QQ2QH 
00002456 
OOOO3O61 



00000892 
00000986 
00001040 
00001928 
0QQ02Q 36 
00002457 
00003178 



00000895 
00001004 
00001043 
0000i929 

oooozo 37 

00002459 
OOOO334O 



0000090i 
00001007 
00001056 
0000i950 

Q0QQ20 3 8 
0OQQ 2 474 
OOOO3346 



00000903 
00001013 
00001061 
00001951 

ooooao 6 * 

00002S45 
00003350 



00000967 
0008x018 
00001068 

00001952 
00Q®2129 

00002963 
00003352 



00000968 
00001027 
00001069 

00001966 
0000«23o 
00002970 
00003365 



00000971 
00001029 
00001072 
00001967 
00002299 
00002978 
00003399 



CHANGELINE 

0002 *00001878* 

00001925 



CHAR 

0002 *00000089* 

00000523 
00001660 
00002140 
00002765 



00000693 
00001723 
00002221 
00002781 



O0O0H99 

00001^2 
00002225 
00002877 



00001303 

OOOOl 79 * 
00002318 
00002903 



00001357 

00001899 
00002417 



00001451 
00001972 
00002435 



00001466 
00001978 
00002449 



00001598 
OOOOi'97 
00002624 



00081599 
000020*4 
00002682 



00001606 
0Q0Q2077 

00002666 



00001607 
0000212? 
00002*24 



CHARCNT 

0002 *00000l32* 



00000273 00000398 00000869 00000872 00000885 #00000886* 00000886 
00000891 *00000895* 00000895 *0000090i* 00000901 *00000903* 00000903 
00000968 *00000968**0000097l* 00000971 *00000975* 00000975 *Q0000982* 
•00000985* 00000985 *00000986* 00000986 OOOOIOO4 *0000l004* 00001007 



00000887 *00080887* 00000892 *0000089g* 
00000958 00000959 *00000967* 00000967 
00000982 *00000983* 00000983 
*00001007* 00001007 00001008 



*0000l0ll**0000l027* 00001027 00001029 *0000t029* 0000i03l *0000l03l* 00001033 *0000i033* 00001033 



00000989 
OOOOIO13 
00001033 



*0000l033* 00001035 00001037 *0000 1037 **Q000 1040* 00001040 00001043 *00001043* 00001043 *0000l043* 00001054 
00001056 *00001056**0000t059* 00001061 *0000l06t* 00001061 00001066 00001067 *00001067* 00001068 *0000l068* 
00001068 *00001069* 00001069 *0000l072* 00001072 *00003477**00Q03526* 00003529 



CHARCONST 

0002 *00000197* 



00000743 0000i0i7 0000054 0000^56 00002314 OOOO2662 OOOO2666 0000J776 OOOO2893 00002898 OOOO32O4 



CHARRNT 

0002 *00000129* 

00080292 
00090975 
0000102 9 
0000i072 
0000i967 
000022 9 5 
00002978 
00003399 



♦00000*89* 

00000982 
00001031 
0000i904 
00001968 
00002319 

00003013 
00003419 



00000871 
00Q00983 
00001033 
00001905 
00002012 
00002431 
00003020 
00003424 



00000687 

00000985 
00001035 
0000i906 
00002013 
00002445 
00003049 



0000089 2 
00000986 
00001037 
00001927 
00002014 
00002456 
OOOO3O61 



00000895 
0000J004 
000010*0 
0000^28 
00002036 
00002457 
00003178 



0000090j 
00001007 
000010*3 
0000i929 
00002037 
0000 2 459 
00003340 



00000903 
OOOOlOn 
00001056 
00001950 
000020 38 
00002474 

00003846 



00080967 
0006i0i3 
000010*1 
0008i95l 
00002065 
000@25«5 
OOOO335O 



00000968 
0000J018 
0000106s 
00001952 
00002129 
00002*63 
00003352 



0000097i 
00001027 
00001069 
00001966 
00002230 
00002970 
00003365 



CHARTYPE 

0002 *00000163* 



*00000522* 00000745 00001246 0000^23 0000i556 00002314 OOOO2662 OOOO2666 00002898 00003204 



CHECK 

0018 *00001881* 



*0000l90i* 00001903 00001910 



CHECK 

OOll *000Q1284* 



*00001303* 00001304 00001310 



CHECKEXPR 

0002 *0000tl46* 



00001154 0000H98 00001416 00002222 00002432 00002446 



CHECKEXPR1? 

0002 *0OO0U46* 



0000u98 00001418 00002222 00002432 00002446 



CHECKEXPR2? 

0002 *0000U46* 



00001198 00001418 00002222 00002432 00002446 



CHECK0PTI0N 

0002 *00000159* 



*0000l047* 0000U98 00001303 0Q00l90i 00002221 00002432 00002446 *00003478* 



CHECKTYPES 

0002 *00000662* 



00000696 OO00H99 00001357 00001599 
00002225 00002318 00002435 00002449 



00001607 00001660 0O0Q1723 0000l?92 0006l795 
00002903 



00002077 00002140 



CHECKTYPES1? 

0002 *00000662* 



0000H99 00001357 00001599 0000j607 
00002318 00002435 00002449 00002903 



00001660 0000i723 OOO0i792 00001795 000@2077 00002140 00002225 



CHECKTYPES2? 

0002 *00000662* 



0000u9* 00001357 00001599 00001607 
00002318 00002435 00002449 00002903 



00001660 00001723 0000i792 00001795 00002077 00002140 00002225 



COLON 

0002 *00000203* 



00080477 00001028 00001980 0000*985 
00002912 OOOO31O5 00003258 OOOO326O 



00002336 00002337 00002547 00002549 00002842 
000032^1 00003314 



00002866 00002911 



COMMA 

0002 *00000202* 

00000*79 
0000i92i 
00002679 
00093504 



00001209 0000135* 0QQ0136Q OOOOI6I0 00001*11 00001850 00001855 00001858 
0000i947 00002004 00002074 00002078 00002H3 00002137 00002j75 00002332 
00002734 0000283* 00002841 000029l0 00003104 OOOO3186 00003187 000Q3188 



0000186J OOOOI889 
00002334 00002521 
00003249 00003259 



CQMPSTAT 

0002 *00002242* 



000022*1 00002588 00003429 



CONCAT 

0002 *0000l09l* 



00001499 *00001835* 00001874 



CONST 

0002 *000Q0064* 



0000052* OOOOO534 00000761 OOOOI3OI 00001325 OOOOI395 00001397 00001&56 00001896 00002088 0000220f 
00002314 00002412 00002561 00002662 00002666 00002670 00002898 00003092 0000311? 00003125 00003204 
00003205 00003359 



CONSTANT 

0002 *00000733* 



0000077* 00001556 0000l621 00002314 OOOO2623 00002627 OOOO2662 OOOO2666 00002898 00003204 00003220 



CONSTANT!? 

0002 *00000733* 



000©i556 00002314 00002662 OOOO2666 00002898 OOOO32O4 



C0NSTANT2? 

0002 *00000733* 



0000^56 00002314 00002662 OOOQ2666 00002898 OOOO32O4 



CONSTSY 

0002 *00000209* 



000C0941 09003194 00003406 



CONSTTAB 

0002 *O0O00H8* 



OOOOO536 00000766 OOOO14OO 0000i556 00002314 OOOO2662 OOOO2666 00002898 OOOO32O4 000032H 



CONSTTABTOP 

0040 *00003157* 



•00003162* 00003438 



CONTYPE 

0029 *00002289* 



♦00002314* 00002314 *00O023l4* 000023i5 00002317 00002318 



CONVAL 

0029 *00002289* 



00002314 *00002314* 000023H *00002314* 00002314 *000023l«* 00002314 00002319 00002323 00002326 00002327 
00002329 



CTYPE 

0037 *00002816* 



*000Q2898* 00002898 *0000289fl* 00002899 00002901 00002903 



CTYPE 

0040 *00003151* 



♦00003204* 00003204 #00003204* 00003205 00003233 00003234 00003264 00003265 



CURFUNC 

0002 *000Q017f* 



00002229 00003383 ♦00003383**00003387* 



CURKIND 

0039 *00003072* 



♦00003089**00003092* 00003099 00003107 00003119 00003125 00003133 00003136 



CURUENGTH 

0002 *00000864* 



*0000089i* 00000893 *00000895* 00000895 0000089/ 00000899 *0000090j* 0000090i OOOOO9O5 00000906 OOOOO958 

00000960 00000961 *0000l004* OOOOlOll *0000l0l2* 00001012 OOO0J015 00001016 0OO0JO20 00001022 00001556 
0000i948 00001955 0000i96i 0000i995 00002314 00002662 OOOO2666 00002898 00003204 00003485 00003496 



CURLEVEL 

0002 *O0000l73* 






















OOOOO443 
00002032 
0000 2 415 
0000287Q 

00003228 
OOOO332O 
OOOO338O 


0000^68 
00002055 
00002489 

00002898 
00003235 

00003328 
OOOO3381 


OOOOnSO 
00002066 
00002557 

00003098 
00003255 

00003340 

00003382 


0000x321 
00002084 
00002655 
00003100 
00003267 
OOOO3341 
00003385 


0000i347 
00002118 
00002662 
000031H 
00003272 
00003346 
♦00003387* 


0000139J 

00002126 
00002666 

00003138 
00003281 
OOOO335O 
00003387 


0000 t 429 
00002161 
00002675 
00003166 
00003282 
00003352 
00003388 


0000 i&56 
00002229 
00002676 
00003169 
00003294 
00003365 
00003409 


0000i883 
00002314 
000^2696 
00003200 
00003295 
OOOO3368 
00003419 


0000!89 2 

00002407 
00002793 

00003204 
00003309 
OOOO3374 
00003424 


0000i94i 
00002414 
00002861 
00003214 
00003312 
♦00003380* 
00003441 


*00003512* 






















CURMODE 

0002 *00000182* 






















*00001277* 

00001648 
♦00001799* 


00001308 
00001668 
00001804 


*0000l366**0000l388**0000l 4 01**0000l* 4 3* 
♦00001670* 00001686 00001702 00001709 
00001818 00002269 00002355 00002393 


00001564 
00001728 


*0000 1566** 0000 1587 *♦ 00OO I 6 I 9 * 
*0000l730* 00001754 00001769 


00001630 
00001796 


CURNAME1 

0002 *00000863* 























♦0000089l*^00000e94^ 00000894 00000905 00000909 00000910 00000911 00000912 00000913 00000914 00000915 



00000916 
000*0927 
00000938 
00000951 
00001439 
00001510 
00001883 
0000248$ 
00002578 
000S28 6 2 
♦00003280* 



00000917 
00000928 
00000939 
00001224 
00001445 
00001515 
00001892 
00002557 
00002579 

000028*4 
00003281 



00000918 
00000929 
00000940 
00001321 
00001457 
00001520 
00001941 
00002567 
00002581 
000028^0 
♦00003286* 



00000919 

00000930 

00000941 
00001347 

00001458 
00001524 
00002032 
00002568 
00002582 
00002898 
000032^4 



00000920 
00000931 
00000942 
000013*1 
00001460 
00001530 
00002055 
00002570 
00002655 
00003098 
00003309 



00000921 
00000932 
00000943 
00001409 

00001475 
00001531 
00002084 
0000 2 571 
00002662 
00003111 
00003320 



00000922 
00000933 
00000944 
0000i4l4 
OOOO1483 
00001532 
00002118 
00002572 
00002666 
00003200 
00003372 



00000923 
00000934 
00000945 
00001425 
00001490 
00001533 
00002153 
00002573 

00002675 
00003204 
00003485 



00000924 
00060935 
00000946 
00001426 
00001498 
00001534 
00002161 
00002574 
00002696 

00003228 
00003493 



00000925 
00000936 
00000947 
00001428 

00001500 

0000i535 
00002314 
00002575 
00002705 
00003255 
00003494 



00000926 
00000937 
00000949 
00001429 
000C150S 
00001556 
00002407 
00002576 
00002834 
00003277 
00003499 



CUHNAME2 

0002 *00000863* 

♦00000891* 
0000i5i0 
00002314 
00002696 
00003228 



00000900 
00001520 
OOOO24O7 

00002705 



♦00000900* 

00001556 
00002489 

00002834 



00000947 
OOOO1883 
00002557 
00002862 



00000949 
00001892 
00002569 

00002864 



UUUU27U3 uuuozo^M uvug2*>02 wuuugooj) 
00003 2 55 000032^7 *00003280* 0000328i 



00000951 
0000i94i 
00002577 
00002870 
*00003 2 86* 



00001224 
00002032 
OOOO258O 

00002898 
00003294 



00001321 
00002055 
00002655 
00003098 
00003309 



00001347 
00002084 
OOOO2662 
000031U 
OOOO332O 



0000l39i 

00002118 
OOOO2666 

00003200 
00003372 



00001429 
00002161 
00002675 
00003204 



CU«SY 
0002 



♦00000180* 



OOOOO384 
OOOOO751 

*00000953 
OOOO1O28 
0000n84 
0000J359 
0000j42l 
OOOQ1*8» 
0000J600 
0000i65i 

000$i756 
00001782 
0000j889 
00001980 
00002078 
00002159 

00002254 
00002309 

00002359 
OQ092429 
00002524 
OOOO2594 

OOOO268S 
000§ 2 756 
00002839 
00002098 

00003096 
00003189 
00001230 
00003270 



OOOOO385 
OOOOO756 
♦♦00000954 
♦OO0OJO29 
0000n88 
O0OO 13 6O 
00001429 
00001492 
OOOO161O 
OOOO168O 

OOOO1757 
00001845 
0000i890 

00001985 
OOOO2O82 
00002i75 
09002255 

00002314 
OOOO2361 
0000 2437 
OOOO2536 
OOOO2595 
00002688 
00002771 
00002841 
000029 IV 
00003104 
00003191 
00003238 
00003271 



OOOOO388 

♦00000908 

♦♦00000955 

* OOOO1O3O 

00001209 

0000i36j 

00001434 

oood 536 

OOOO1611 
00001682 

00001758 
0000 1850 
0000i92i 
00002004 
00002098 
00002177 
00002256 
00002332 
00002382 
0000 2438 
00002547 
00002596 
00002691 
00002774 
00002842 
00002911 
00003105 
00003194 
0QQ03239 
00003289 



00000705 

♦♦00000909* 

* 00000957 

*0000i03i* 

000012J.0 

OOOO1363 

0000^435 

00001554 

OOOO1612 
0000i69l 
0000i759 
00O0i855 
0000^922 
00002005 
00002099 
00002178 
OQ0Q2258 
00002334 

OOOO2383 
00002441 
00002549 

OOOO2625 
00002712 
00002776 
00002853 
000Q2912 

00003109 

00003198 
00003240 
00003291 



00000709 
♦00000915* 
♦00000966* 
OOOO1O32 
°000i2i2 
0000^79 
0000i44i 
00001556 

OOOO1614 
00001696 
00001760 
00001858 
0000i923 
00002006 
00002109 
00002i8j 
00002270 
OOOO2336 
00002384 

00002443 
00002555 
0000 2 653 

O0OQ2714 
0000279i 
00002860 
000Q2913 

00003139 
00003202 
00003243 
00003292 



00000722 
♦00000930* 

*00000973* 
*0000j033* 
0000i2i5 
0000^83 
OOOO1448 
0000l55 a 

0000i63l 
00001697 

0000i76l 
OOOO1861 
0000i94i 

00002032 
00002H3 
OOOO2182 
OOOO2273 
00002337 
80002385 
0000^450 
00002588 
OOOO2662 
00002717 
0000280s 
00002866 
000029t7 
00003140 
000032Q4 
00003249 
00003314 



00000735 
*00000937* 
♦00000982* 
00O0i034 
00001222 
OOOO1384 
0000j452 
00001569 

0000i633 
0000i704 

0000i77j 
OOOO1866 
0000^943 
00002040 
00002116 
OOOO221O 
00002275 
00002339 
OOOO2388 
00002453 
00002589 
OOOO2666 

00002734 
OOOQ28O4 

00002868 
00002921 

00003142 
00003217 
00003250 
00003318 



00000736 

♦00000943* 

00000991 

*0000i035* 
00001265 
0000^89 

00001462 
00001574 

0000i*38 
0000l7ti 

0000x772 
00001873 
0000i945 
00002041 
00002137 

00002212 
0O0Q2279 

00002342 
00002390 
00002470 
00002*90 
0000 2 667 
00002735 
OOOO2823 
00002888 
OOOO3O83 

00003171 
0000321a 
00003259 
00003338 



00000739 
♦00000947* 
♦00001004* 
OOOO1O36 
00001293 
OOOO^n 
0000i47i 

0000i 5 78 
0000i639 

0000i7i2 
0000i775 
OOOO1883 
0000i947 
00002010 
00002143 
00002236 
00002 3OO 
00002343 
00002405 
00002487 
0000259t 
00002673 
00002736 
00002824 
00002809 
0000 3007 

00003176 
00003219 
00003260 
00003390 



00000743 

♦00000949* 

♦00001017* 

*0000i037» 

0000i3l9 

0000i4i7 

00001472 

ooooi 5 e2 

00001640 
00001748 
00001776 
00001885 
0000 1*48 

00002053 
00002144 
00002250 
OOOO23O3 
00002344 
00002425 
00002521 
00002592 
0000 2679 

00002751 
00002825 
00002892 
00003089 

00003187 
00003222 
00003261 
00003392 



00000747 
*0000095|* 
♦00001027* 
OOOO1O38 
00001345 
0000i420 
00001477 
0000l5 a 5 

00001643 
00001751 
0000i78i 
00001887 
0000i969 

00002074 
00002156 
00002253 
OOOO23O7 
00002356 

00002428 
00002522 
00002593 
OOOO268O 
00002754 
OOOO283O 

00002893 
00003090 

00003188 
00003226 
00003269 
0000340g 





OOOO34O4 


OOOO34O6 


OO0O348O 


OOOO3483 


00003487 


OOOO3491 


OOOO35O4 


OOOO35O5 


OOOO35O6 


00003507 


00003519 




00003522 






















CURTYPE 
























0002 


♦00000181* 
























00090704 


00000716 


00000717 


0000H77 


*0000 1177**0000 u8l* 


0O00H93 


00001194 


0000H99 


*00001200* 


00001206 




00001207 


00001208 


00001219 


*0000 1229**0000 1230**00001231* 


00001236 


♦00001239* 


00001240 


*0000 1246**0000 1261* 




*000tt26e* 


OOOO1266 


♦0000132'* 


00001337 


• 0000 1 340 ♦♦OOOO 134 1^*0000 1342**0000 135 2**0000 I3l4*^0000l355 + 


00001357 




00091382 


*0000 1401**0000 14 11* 


00001411 


000014U 


00001419 


*0000 1423**0000 1429* 


00001429 


♦00001429**00001437* 




0000i44i 


*0000i44l* 


00001442 


*0000i443* 


0000i45i 


*0000i455* 


OOOO1466 


00001467 


00001468 


*0000 147 3**0000 147 7^ 




00091477 


00001478 


*0000 148 1**0000 1485* 


00001485 


OOOO1488 


00001492 


♦00001*92* 


00001495 


♦0000l496**0000i503^ 




*0000 1508**000015 t 3 **0000 I 5 18**0000 15 23**0000 152 f* 


00001536 


♦0Q0Q153$^ 


0000*537 


♦0000 15 3 8**0000 1 544 "0000 155 0* 




♦0000 1551**0000 1552**0000 1556* 


00001556 


*0000l556* 


00001562 


*0000i563* 


00001563 


*0000i57i**0000l587* 


00001597 




00001598 


OO00J599 


00001605 


00001606 


00001607 


*0000i6l8* 


00001633 


00001645 


00001655 


00001657 


00001659 




OOOO166O 


♦00001661* 


00Q01$63 


♦0000 1665**0000 1666* 


00001666 


OOOO1688 


00001693 


00001699 


00001718 


00001720 




00001722 


00001723 


*0000l724* 


00001726 


•00001726* 


00001750 


00001787 


00001788 


00001791 


0000l?92 


00001794 




0000i7?5 


♦06001799* 


00001817 


0000t839 


00001840 


0000i848 


0000i849 


00001853 


00001854 


00001857 


0000 i860 




OOOO186J 


*0000i872* 


00001883 


*0000i883* 


00001884 


00001898 


00001912 


00001913 


♦00001941* 


00001941 


♦00001941^ 




0000^942 


00001970 


00001973 


00001983 


00001989 


OOOO2O32 


♦00002032* 


00002034 


00002077 


0000209i 


00002092 




00062112 


00002i40 


00002165 


00002168 


00002209 


00002225 


00002269 


00002271 


000022*4 


00002297 


00002355 




OOO62357 


O0OO236O 


000023 9 3 


0000 2 435 


00002439 


00002442 


00002449 


0000245i 


00002454 


00002495 


00002496 




00002502 


00002503 




















CURVAL 
























0002 


♦00000862* 























*00000966**0000O968* 00000968 *00000974* 00000974 *00000994* 00000994 00000997 *000fl0999**0000 iO ^♦♦OOOO 1O23* 
0000i556 00002314 00002472 00002474 00002539 00002545 00002662 00002666 00002898 00003178 00003179 
00003181 06003184 000Q3204 



CVAU 

0037 ♦00002816* 



♦00002898^ 00002898 *00002898* 00002898 *0000289e* 00002898 *0000289Q* 00002898 00002902 00002906 00002907 

CVAL 

0040 *00003152^ 

♦00003204* 00003204 *00003204* 00003204 *00003204* 00003204 ♦00003204^ 00003204 *00003204* 00003206 00003211 
00003213 

CX 

0002 *00000863* 

♦00001043* 00001044 00001046 00001047 00001048 00001049 00001050 00001053 



Ct 



0040 *00003153* 

♦00003277^ 06003286 



C2 



0040 *00003153* 

*000Q3277* 00003286 



0034 *00002483+ 

00002502 00002503 00002504 00002505 00002506 00002513 00002514 



DECl 

0002 *00000234* 



OECL 

0002 *00000586* 

00000592 



DECLAREVARS 

0002 *0000293B* 



00003067 00003272 00003368 



DISPLAY 

0002 *00000074* 



000Q0444 0000n70 0000i32l 00O0J347 0000i39j 0000j,429 0000j556 OOOO1883 0000i892 0000i94j 00002032 
0000 2 055 0000 2 084 OOOO2II8 0000 2 161 0000 2 3U 0000 2 407 0000 2 489 0000 2 5U 0000 2 557 0000 2 655 0000 2 66 2 
0000 2 666 00002696 OOOO2862 0000 2 870 00002898 00003m 00003 2 04 00003320 



DIVSY 

0002 *00000198* 



00000917 00001643 00001663 



OCULAR 

0002 *00000858* 

00091041 



OOSY 

0002 *00000206* 



00000910 00002356 00002358 0000 2 359 0000 2 450 00002452 0Q0Q 2 453 00002522 00002523 00002524 



I 



DOT 

0002 *00000203* 



00000478 00001030 00001184 00001215 00001234 00001265 0000351* 00003522 



DOUBLEDOT 

0002 *00000202* 



00000480 00001031 00001600 00002625 00002662 00002666 



DOWN 

0032 *00002400* 



*00002438* 00002458 



DQWNTOSY 

0002 *00000207* 



00000944 00002438 



DUMMY 

0013 *00001408* 



DUMMY 

0020 *00002011* 



DUMPOPTION 

0002 *00000159* 



00000364 *00001048* 



EDITION 

0002 *00000028* 

00000494 



ELSESY 

0002 *00000205* 



000§093l 00002253 00002279 00002382 



EMPTYSET 

0002 *00000164* 



*00000532* 00000671 0000H99 00001357 0000t5e7 00001599 000016Q 7 0000l66 00001723 0000l 7 92 0000l 7 95 



00002077 000021^0 00002225 00002318 00002435 00002449 00002903 



ENDOFINPUT 

0002 *00000185* 



00000269 00000886 00001067 00003477 *00003s26* 



ENOSY 

0002 *00000204* 



00060918 08002 2 56 00002257 00002258 00002309 00002339 00002344 00002803 00002804 



EOF 

0041 *00003467* 



00003471 *00003474* 



EfiUSY 

0002 *00000200* 



00000479 00000929 00001760 0000l77l 00001772 0000l78l 00003202 00003g30 



EQUAL 

0002 *00000858* 



00001028 00001032 00001036 



ERR 

0002 *00000156* 



00060397 06003684 00003686 



ERRINX 

0002 *00000134* 



OOOOO268 00000398 *00000398* 00000399 00000400 OOOOO4O2 *00000402**000004l 3* 00000886 00001067 00003477 
00003530 



ERRUINE 

0002 *00000133* 



00000400 00000410 00000412 00000486 



ERRNUM 

0002 *00000394* 



00000397 OOOOO4OI 00000402 00000403 



ERRNUM 










0036 *00002644* 










00002645 










ERROR 










0002 *00000393* 










00000404 


OOOOO461 


00000508 


00000512 


00000516 


OOOQO544 


OOOOO545 


OOOOO546 


OOOOO555 


OOOOO557 


00000726 


00000744 


00000752 


00000753 


00000771 


00000999 


00001008 


00001015 


00001058 


00001100 


00061198 


0000H99 


00001203 


00001204 


00001205 


00b0l22« 


00001230 


00001231 


00001240 


00001245 


0000J287 


000012*5 


000012*8 


OOOO13O4 


00001305 


00001332 


00001338 


00001340 


OOOO1341 


0O00H42 


0668136! 


0000 1362 


06661363 


0000 1383 


OO661385 


0000i420 


00001422 


00001429 


00001430 


00001431 


00001454 


OOO0U55 


00001461 


00001465 


00001466 


00001477 


OOOO1478 


00001479 


OOOO148O 


OOOO1485 


000*1495 


00001502 


00001507 


00001512 


00001517 


000«i55l 


00001552 


0000 1556 


0000 1560 


OOOO1563 


00001594 


00001598 


00001599 


OOOO16O2 


00001606 


00001*28 


00001638 


00001639 


000016*0 


000016*2 


OOOO166O 


00001663 


00001669 


00001^79 


00001682 


000§i7n 


00001712 


00001713 


0000i7i4 


0000l7i6 


000fll75# 


OOOO1757 


00001758 


00001759 


00001760 


00001777 


0000i78i 
0000^840 


0QQQ1782 


00001783 


00001785 


000di8i7 


0000t843 


OO661849 


0000i852 


OOOO1866 
0000i9i$ 


00001867 


00001668 


00001869 


00001870 


0»00i922 


0000i94l 


0000i942 


0000i98| 


00002035 


00002040 


OO66 2064 


6066 20 66 


00002069 


00002094 


00002095 


00002096 


00002097 


00002098 


00002134 


00002x35 


00002140 


00002i4i 


°0002l42 


00002177 


0@002l80 


OOOO2181 


00002211 


00002217 


00002269 


0000227i 


00002274 


00002294 


00002299 


00002331 


00002336 


00002340 


00002344 


00002355 


00002414 


00002415 


00002420 


0000 24 21 


00002422 


00002442 


00002446 


00002449 


00002451 


00002454 


OOOO25I6 


090025 17 


00002518 


00 02523 


00002540 


00002624 


00002625 


0000 2629 


00002630 


0000 2645 


00002693 


00002704 


00002717 


00002724 


00002727 


0000^762 


OQ002764 


00002775, 


Q 000 278 x 


00002782 


000028 32 


00002834 


6660 2838 


60662642 


00002845 


00002887 


00002888 


00002898 


00002902 


0000290s 


00001009 


00Q03Q7A 


00QQ3082 


000 Q IQ 9 8 


0000.3 lOl 


00003129 


00003133 


00003141 


00003179 


00003i8i 


000(93215 


00003216 


00003217 


00003228 


00003236 


0000 3268 


0000326.9 


OOOO3284 


0000 3 3O 4 


00003306 


OO603335 


OOOO3337 


O6663338 


OOOO3381 


00003390 


OOOO35O5 


OOOO35O7 


00003508 


00003509 


00003510 


ERR0RMESS1 










0044*00003576* 











00000520 
OOOOO558 
00000774 
0O00U72 
00001207 
00001250 
00001309 
00001350 
OOOO1399 
00001434 
00001467 
00001486 
00001522 
OOOO1565 
00001607 
00001643 
0000i689 
0000i723 
0000i76l 
00001792 
OO0O}854 
0000i87i 
0000i987 
00002070 
00002100 
0O002i43 

00002222 
OOOO23O1 

00002357 
00002423 
00002473 
00002544 

00002662 
00002729 
00002784 
00002064 
00002904 

00003102 
00003182 
00003237 
OOOO33O9 

00003396 
00003521 



00000524 
00000563 
00000775 



0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 

0000 

0000 

0000 

0000 
0000 

0000 

0000 

0000 
0000 

0000 

0000 



180 

208 
260 

312 

351 

400 

44i 
468 
487 
526 

57l 

609 
64 9 

696 
729 
763 
794 
857 

883 
989 



000020 71 

00002112 
00002145 

00002225 
00002304 

00002360 
0000242 6 
00002476 
0000 2 548 

00002666 
00002735 

00002793 
00002866 
00002908 

OOOQ3107 
00003186 
00003236 
OOOO3316 

OOOO34O3 
00003526 



00000527 
OOOOO566 
00000776 
00001182 
00001211 
OOOO1262 
00001313 
00001354 
0000i4li 
00001442 
00001469 
00001468 
0000U35 
00001570 
OOOO161O 
0000l65o 
00001697 
00001742 
00001764 
00001795 
OOOO186O 
00001004 
00002000 

00002072 
00002127 
00002170 
00002229 
00002314 

00002382 
00002432 
00002496 
0000gS82 
00002670 
00002736 
00002798 
00002877 
00002^11 

0000 3125 
00003109 

00003253 
00003329 

00003434 
00003688 



00000529 
OOOOO568 
00000777 
0000H91 
00001218 
00001260 
0000i3i4 
00001355 
OO06i4i2 
00001447 
00001470 
00001492 
00001536 
OOOO1570 

00001613 
00001651 
OO00i7O3 

00001745 
00001770 

00001797 
O6061863 
0000i9i6 
OOOO2OO5 
00002077 
00002120 
00002i72 
OOO022S3 
00002318 
00002363 
00002435 
00002498 
00002585 
00002675 
00002739 
0000.2799 

00662884 
000029X7 

000Q3126 
00003200 

00003255 
00063330 
00003496 



00000533 
00000693 
00000978 
00001195 
00001220 
00001270 
00001330 
00001357 
0000 i4 18 
00001451 
00001471 
OOOO1493 
00001537 
0000i579 

00001616 
00001652 
OOOO17O4 

00001746 
00001772 
0000l?98 
OOOO1664 
0000l9t7 
OOOO2O32 
00002092 
00002132 
00002i73 

00002254 
00002324 
00002387 
00002436 
00002507 
0000 2 586 
00002678 
00002755 
OOOO28O3 

00002885 
00002919 

00003X27 
00003204 

00003256 
OOOO3331 

00003500 



00000542 
00000722 
00000988 
00001196 
00001228 
00001271 
00001331 
00001359 
0000i4i9 
00001452 
00001473 
0000 1494 
00001549 
00001507 

00001621 
00001653 
O000i7iO 
00001755 
00001776 
00001007 
OOOO1865 
00001918 
OOOO2O33 
00002093 
00002133 
000Q2174 
00002257 
00002329 

00002393 
00002439 

00002515 
00002597 

00002680 
00002761 
OOO028O5 

00662886 
00002995 

00003120 
00003209 

00003260 

00003332 
00003502 



00003685 



ERR0RMESS2 

0045 *00003639* 

00003687 



ERRORS 

0003 *00000188* 

00003683 



EXIT 

OOil *00001285* 



00001298 *00001362* 



EXIT 

0028 *00002267* 



00002273 *00002281* 



EXIT 

0026 *00002203* 



00002212 *00002238* 



EXIT 

0037 *00002819* 



00002851 *00002922* 

EXIT 

0030 *00002353* 

00002361 *00002366* 

EX 6o08 *00000879* 

♦00060985* 00000986 * °000?86* 00000987 *00000987* 00000989 



EXPRESSION 

0002 "00001090* 



0000H49 0000H98 00001307 00001381 000014J1 0000j,«l8 00001441 00001450 000©1464 00001477 00001485 

0000149B 000C1536 00001577 0000i595 OOOO16O3 #0000i734* OOOOtSU OOOO1816 0000x888" 0000x847 00001852 

00001857 00001860 00001863 00001970 00001982 00001988 00002002 00002077 00002111 00002140 00002222 

00002223 00002269 00OQ22 9 <> 00002355 00002393 00002432 00002446 



EXPRLEVEL 

0002 *0000J095* 



#00001306* 00001306 #00001307* 00001307 *0000l739* 00001739 00001740 00001801 #00001801* 00001802 00001816 
00001820 *00002269**00002355**0000239 3* 



EXTERNALISE 

0002 *0000007l* 

•00000565* 

EXTfiLE 

0038 #00002945* 

#00092999**00003005* 00003007 00003025 

EXTFRETAB 

0002 *00000152* 

0000300S 00003499 

F 

0018 *0000l88@* 

•00001898* 00001899 00001901 00001907 00001908 

F 

0016 *00001736* 

#00001750* 00001752 00001763 00001767 00001779 

F 

0015 #00001676* 

#00001688* 00001689 #00001693* 00001694 00001706 

F 

0019 #00001938* 

#00001970* 0000l9 7 2 0000l9?5 0Q00l9?6 0000i9 7 7 00001978 00OQ198 7 00001994 000fll995 00001996 00001997 

F 

0014 #00001627* 

*0000l634* 00001635 0000l6*2 000016*5 OOOOUSl 



0021 *00002023* 

*00002034* 00002035 



FACTOR 

0002 *00001370* 



00001561 00001622 0000i62? 00001654 



FIElOUST 

0002 *00002616* 



00002797 *00002810* 00002915 00002923 



FILEHANDLING 

0002 *00002020* 



00002042 000025^2 00002573 00002574 00002575 00002577 



FIUEID 

0019 *00001938* 



*0000i94l* 00001950 00001951 0000^952 0000i966 0000i967 00001968 00002008 



FILEID 

0018 *0000l880* 



*0000i883* OOOO19O4 0000x905 0000J906 0000i927 0000j,928 0000i929 



FILENAME 

0002 *00000699* 



00060/04 OOOOO7I9 OOOOO724 0OOOO725 00000726 0000H29 *Q0QQ1429* 00001029 *00061429* 00001«30 *0000l883* 
000«i883 *0000i883* 00001883 *0000i883* OOOO1883 0000i94i *0000i94i* OOOO^j #00002008* 000020i2 000020i3 
00002014 *00002032* 00002032 00002033 00002036 00002037 00002038 



fileparam 

0002 *OQ00O7O2* 



00000727 00001429 OOOO1883 0000^941 OOOO2O32 



FIIEPARAM1? 

0002 *00000702* 



00001429 00001883 00001941 00002032 



FILES 

0002 *00000101* 



00060717 00001237 00001429 OOOQ1883 00001884 0000i94l 0000i94g 00002032 00002035 00002739 00002761 



00002765 00002845 00002974 00003122 



FILESY 

0002 *OQ000208* 



00000936 00002751 



FIlETAB 

0002 *00000154* 



00002997 00003012 00003416 00003419 00003424 



FILETYPE 

0002 *00000102* 



00001239 *00002766* OOOO3O4O 00003041 OOOO3O51 OOOO3O56 00003058 



FINIS 

0002 *0000061|* 

00000619 



FINIS 

0002 *00000865* 



*0000i005**0000i007**00o0i008* 00001009 OOOO1O14 *0000i063**0000i070* 0000l07i 



FIRST 

0002 *00002941* 

00002950 



FIRST 

00J2 *00001373* 



*000Qi428* 00001431 *0000l460* 00001465 *0000l59i* 00001593 *0000i593* 



FIRST 

0029 *00002290* 

•00002308**00002313* 00002313 

FIRST 

OO37 *00002817* 

*000fl2827* 00002829 *00002829**00002895* 00002897 *00002897* 
FIRST 



0039 *00O03O73* 

*00003093**00003095* 00003095 

FIRST 

0036 *00002650* 

♦00062718* 00002720 *00002720* 

FIRSTADDR 

0002 *00002618* 



FIRSTADDR 

0002 *00002812* 

00002821 



FIRSTDIM 

0038 *0Q002945* 



*00Q0297** 00002981 *00002981* 



FIRSTFILE 

0040 *0000315B* 



*00003l66* 00003415 00003427 



FIRSTLAB 

0002 *00000l25* 



00002538 00003160 *00003l6l* 00003180 00003433 *00003437* 



FIRSTPARAM 

0039 *00003072* 



*00003082* 00003145 



FIRSTSYM 

0011 *0000l283* 



*00001305* 00001309 



FIRSTSYM 

0016 *0000173** 



♦00001743* 00001806 



FIRSTVAR 

0002 *00000143* 



•00003247* 00003266 



FIRSTWITHSYM 

0002 *00000076* 



00001171 *00002505* 



FLOATING 

0002 *Q0000090* 



000005H 00000771 00001556 0000i635 00001642 
0006i972 0000i976 0000i987 0000i994 000022 9 8 



00001689 00001694 00001763 00061899 0000l90i 00001908 
00002314 00002662 00002666 00002898 OOOO32O4 



FNAME 

0038 *00002946* 



♦00003000* 00003001 00003005 00003015 00003017 00003030 



FNLENGTH 

0038 *00002947* 



OOOO3OO1 *0000300i* 00003002 00003015 00003017 00003030 



FNSTART 

0038 *00002947* 



*00003001* 00003015 000030l7 00003q30 



FORM 
0002 


*00000084* 


















♦00000511**00000515**00000519**00000523* 


00000669 


00000678 


00000684 


00000687 




00000? 7 


00001195 


00QQ1199 


00001220 


00001237 


000012*2 


000012*8 


00001303 




0000141* 


00001429 


00001441 


00001451 


00001466 


00001477 


00001485 


00001492 




00001599 


00001606 


00001607 


00001634 


00001659 


00001660 


00001688 


00001693 




0000l79i 


00001792 


00001794 


0000J795 


0000^840 


00001849 


00001854 


00001857 




00001884 


00001898 


0666l94l 


00001942 


00001970 


00001983 


00001989 


00002032 




00002077 


00002092 


00002112 


00002124 


00002127 


00002140 


000021*5 


00002221 




00002318 


00002417 


00002435 


00002449 


00002496 


00002624 


00002631 


00002662 




00002761 


00002765 


00002781 


00002845 


00002877 


00002898 


00002903 


00002974 




00003122 


00003204 


00003326 












FORMAL 


















0002 


*0000006f* 


















0000076i 


00001289 


00001325 


0000i395 


00001556 


0000i896 


OOOO2O88 


00002207 



00060689 
00001357 
00001536 

00001722 
OOOO18IO 
00002034 
00002225 
00002666 
000@2 9 85 



00000717 
00001382 
00001556 
00001723 
00001863 
00002061 
00002298 

00002724 
00002993 



00000763 

00001*11 

00001598 
00001750 
00001883 
00002064 
00002314 
00002739 
OOOO3O39 



00002314 00002412 0000256i 



00002662 00002666 00002898 *00003136* 00003204 



FQRMALPRQC 

00H *000Q1284* 



*00001289* 00001291 00001365 



FQRMERFIRSTIAB 
0040 *000Q3158* 



♦00003160* 00003437 



FORSTAT 

0002 *00002397* 



00002463 00002593 



FQRSY 

0002 *0000020»* 



00000916 00002593 



FORWARDDEF 

0002 *00000070* 



00003299 00003301 00003374 



FOUND 

0002 *0000042l* 



OOOOO433 
00001347 

*0000l 556 
00002055 
*00002l6i 
♦00002489 
•00002662 
•00002862 
*OOO032O4 



OOOOO435 

•00001347* 

* 00001556 

♦00002055* 

OOOO2161 

00002490 

00002662 
OOOO2863 
00003204 



OOOOO446 
00001347 

*0000l 883 
00002055 

OOOO2162 

00002557 

•00002662 

0000 2870 

•0000 3281 



00000712 
0000i3«8 

* OOOQi 883 
00002056 
00002204 

♦00002557* 

••00002666* 
♦00002870* 

* 0000328 1 



00000759 

0000i39i 

0000l 89 2 
OOOO2O84 

00002314 
00002557 

00002666 
0000287! 

00003283 



♦00001224 
*0000i39i 
♦0000l 89 2 
♦00002084 
•00002314 

00002558 
•00002666 
♦00002898 

00003294 



00001224 
0000i39l 

OOQQl 893 
00002085 

00002314 
00002655 
OOOO2666 
0000 2 898 
•00003294 



0000 
0000 

*0000 
*0000 

•0000 
*0000 
•0000 
♦ 0000 
* 0000 



1225 

1392 * 

l»4i* 

2U8* 

2407* 

2655* 

2696* 

3111* 

32«6 



OOO01 3 21 

00001429 

0000l 9 *l 
00002U8 

00002407 
00002655 
00002696 
00083111 
00003380 



♦00001321* 
* 00001429 

*00002q32* 
00002119 
00002408 
00002656 
00002697 

00003H2 
•00003320* 



OOOOI322 
00001556 
00002 032 
00002161 
00002489 
OOOO2662 
00002862 
00003204 
00003321 



FUN 

0040 *00003154* 



*0006329i^ OOOO33O3 00003304 00003311 00003316 00003334 00003339 00003383 



FUNC 

0Q02 ^00000065* 



00000548 OOOO1352 0000i404 00002562 00002954 0000296i 00003090 OOOO33O4 00003311 



FUNCSY 

0002 *0000021Q* 



00000949 00003087 00003090 00003269 00003291 



Fl 



0002 *00000660* 



00000669 

000*1199 

00001599 

00001607 

*00001723 

00061795 

•000021*0 

•00002225 

00002435 
•00002449 



00000671 
• 0000H99 
♦00001599 
•00001607 

* 00001723 
♦00001795 

* 00002140 

* 00002225 

•00002435 

* 00002449 



0000067 

* 0000119 

* 0000J59 

* 0000160 

*0000t72 

* 0000179 
•0000214 

0000231 

* 0000243 
0000290 



2 00000674 
9 *0000U99 
9 *0000i599 

7 00001660 
3* 00001723 
5 *0000l795 
0* 00002140 

8 *000023l8 

5 +00002435 

3 *00002903 



00000678 

* 00O0H99 

* 00001599 
•00001660 

*0000l723 

* 0000179J 

•00002140 

* 00002318 

* 00002435 

* 00002903 



00000680 
•00001199* 
•00001599* 

* 00001660 

* 00001723 
00002077 

* 00002140 
*000023i8* 

#00002435* 
•00002903* 



00000684 00000666 00000687 00000692 0000069a 

•00001357* 00001357 *0000l357* 00001357 *0000t357* 

•00001607* 00001607 *0000i607* 00001607 *0000l607* 

•00001660* 00001660 *0000l660**0000l723t 00001723 

*0000l792* 00001792 *0000l792* 00001792 *0000l792* 

*00002077* 00002077 *00QQ2077* 00002077 *00002O77* 

00002225 *00002225* 00002225 *00002225* 00002225 

00002318 *000023i8* 000023i8 *000023l8**00002435* 

00002449 #00002449* 00002449 *00002449* 00002449 

00002903 *00002903* 00002903 *00002903» 00002903 



F2 



0002 *00000660* 

00000669 

00000693 
*0000l59fi* 

OOOO166O 
*0000i723* 

00001795 
*0000 2 077* 

00002318 
*0000244 9 * 



00000670 
*0000li99 

00001599 
*0000l660 

0000i723 

*06C0l795 
09002140 

•00002318 
00002449 



0000 
* 0000 



• 000 

* 0000 

0000 

* 0000 

*0000 

* °°oo 

*0000 



°67l 
1199 



l 599* 

1660 

179 2 

1795 

2140* 

2318 

2903* 



00000 
•00001 

ooooi 

•OOOOl 
•OOOOi 
•OOOOi 

0000 2 

•00002 
00002 



67 2 

199* 

599 

660* 

792* 

795* 
140 



00000674 
0000U99 
00001607 
00001660 
00001792 
00001795 
*00002l40* 



318**00002435* 
903 *00002903* 



00000678 
•0000H99 
*0000i607 
♦00001660 
*0000i792 

•00001795 
OOOO2I4O 

00002435 

00002903 



00000680 
0000H99 
00001607 
00001660 
0000i792 

00Q02077 
*00002225 
•00002435 
*OO002903 



OOOOO684 
00001357 
•00001607* 
•00001723* 
♦00001792* 
•00002077* 

* 00002225 

* 00002435 

* 00002903 



00000686 

•00001357 

00001607 

00081723 
00001792 

000020F7 
♦00002225 

00002449 
♦00002903 



00000689 

* 00001357 
*00001607* 
*0000l72|| 
*0000l792* 
•00002077* 

* 00002225 * 
•00002449* 

* 00002903 



00000692 

00001599 
00001607 

00001723 
00001792 
00002077 

00002318* 
00002449 



GEN 

0002 *00000279* 

OOOOO3O1 
00001904 
00001928 
00001967 
0000i994 
00002026 
00002067 
00002141 
00002269 
00002354 
OOOO2445 

00002958 
00002981 

00003024 
00003046 
OOOO3O66 



OOOOO33O 

OOOOI9O5 
00001929 
00001968 
00001995 
00002027 
00002068 
09002153 

090022^7 
06002355 

00002447 
00002961 
00002982 

00003028 

000.03047 
0000 3169 



00000341 

00001906 
00001931 
0066l97l 
00001996 
00002028 
06662076 
00002154 

000022 80 
OOOO2363 

00002448 

00002962 
00002984 

00003029 

00003048 

0000 317 3 



00000345 

00001907 
00001940 
00001975 
0000i997 
00002029 
0000 2080 
00002167 
00002295 
00002377 

00002456 
00002963 
00002988 
00003030 
OOOO3O49 
0000 3187 



00000346 

0000190a 
00001950 
00001976 
00001998 
00002030 
00002090 
00002l7i 
00002297 
0000238 1 
00002457 
00002967 
00002992 

00003031 
00003050 
00003190 



0000H35 
00001909 
00001951 
00001977 
0000200i 

00002032 
00002i0t 
00002220 

00002311 

00002392 
00002458 
00002968 
00003013 
00003033 
00003053 
OOOO3339 



OOO0H37 
00001912 
00001952 
00001978 
00002003 
00002036 
OOOO21O8 
00002224 
000023J9 
OOOO2393 
00002459 
00002969 
OOOQ30i 4 
0O003036 
00003056 
OOOO334O 



00001809 

00001913 

00001960 

00001179 

00002012 

00002037 

00002H5 

00002248 

00002332 
OOOO24O3 

00002461 

00002973 

0Q00 3 Ql5 

00003038 

00003058 

00003344 



00001882 
00001914 
00001961 
00001984 
00002013 
00002038 
0000 '21 10 
00002252 
00002335 
00002431 
00002474 
OOOO 29? 6 
000o3ol6 
00003042 
00003060 
00003349 



00001902 
00001920 
00001962 
00001990 
00002014 
00002039 
00002131 
00002260 
00002342 
00002433 
OOOO2545 
00002977 
00Q03Q1? 
00003043 
00003061 
00003351 



00001903 
00001927 
00001966 
00001991 
000020 16 
00002048 
00002139 
00002268 
00002345 
000024 34 
OOOO2584 
00002978 
0000*020 
00003044 
00003062 
0000 3354 



00003356 
00003413 



000033*2 
00003418 



00003364 
00003420 



00003367 
00003425 



00003369 
00003441 



00003376 0000339J 00003397 00003400 000034H 000Q3412 



GENIO 
0002 



*00000288* 

00001904 
00001968 
00002319 
OOOO3O13 
00003419 



00001905 

00002012 
00002 4 3l 

00003020 

00003424 



00001906 
00002013 
00002445 
00003049 



00001927 
00002014 
00002456 
00003061 



00001928 
00002036 
00002457 
00003178 



00001929 
00002037 
00002459 
00003340 



00001950 
00002038 
00002474 
00003346 



00001951 
00002065 
00002545 
00003350 



00081952 
00002129 
00002963 
00003352 



00001966 
00002230 
00002970 
00003365 



00001967 
00002295 
00002978 
00003399 



GENID1? 

0002 *00000288* 

0000 1 90 4 
00001968 
00002319 
00003013 
0000341* 



00C0i905 

OOOO2O12 
00002431 
00003020 
00003424 



00001906 
00002013 
0000g445 
00003049 



0000i927 
00002014 
00002456 
OOOO3O61 



0000 1928 
00002036 
Q0002457 
00003178 



0000 1929 
00002037 
00002459 
00003340 



0000 i950 
00002038 
00002474 
OOOO3346 



00001951 
00002065 
00002545 
00003350 



0000i952 
00002129 
00002963 
00003352 



00001966 
00002230 
00002*70 
00003365 



0000 1967 
00002295 
00002978 
0000 3399 



GENID2? 

0002 *00000288* 

0000j904 
0000i968 
0000 2 3i9 

OOOO3O13 

0000341* 



OOOO19O5 0000i90© 0000i927 

000°20l2 00002013 0000g0i4 

OOOO2431 00002445 00002456 

OOOO3O2O 00003049 OOOO3O61 

00003424 



0000i928 
00002036 
0000 2 457 
00003178 



0000^29 0000i9b0 
00002037 00002038 



0000 2 459 
00003340 



0000 2 474 
OOOO3346 



0000i95i 000«i952 0000^66 0000i967 

00002065 00002129 00002230 00002295 

00002145 OOOO2963 00002970 00002978 

OOOO335O 00003352 OOOO3365 00003399 



GENJD3? 

0002 *00000288* 



OOOO19O4 OOCO19O5 0000i90b 0000i927 0000i928 0000i929 0000i950 0000i95i 

0000i968 OOOO2O12 OOOO2O13 OOOO2O14 00002036 OOOO2O37 OOOO2O38 OOOO2O65 

°000 2 3l$ 00002431 00002445 00002456 00002457 Q000 2 459 00002474 00002S45 

00003013 00003q2o 000030*9 00003o6l 00003178 0000334 000Q33«6 000o335o 

00003419 00003424 



0006i952 
00002129 
00002963 
00003352 



0000i966 
00002230 
00002970 
00003365 



00001967 
00002295 
00002978 
00003399 



GENINT 

0002 *0000029f* 






00000312 
0000i962 
00002067 
00002269 

00003044 


000011*0 
0000i975 
00002068 
0000 2319 

00003056 


0000* 80 9 
00001976 
00002090 
00002355 
00003058 


GENINT1? 

0002 *00000299* 






00001809 


OOOO19O2 


00001907 



0000 1 902 
0000i977 
00002lOi 
OOOO2393 



OOOOI9O7 
00001978 
00002130 
OOOO2433 



00001906 
00001994 
00002131 
00002447 



OOOOI9O9 
0000i995 
000021*6 
00002584 



00001912 
00001996 
00002167 
00002*82 



00001913 
00001997 
00002171 
000G2984 



0000191* 
OOOO2OO1 
00002220 
OOOO3O42 



0000t96l 
00002039 
00002224 
00003043 



00001908 00001909 0000l9i2 0000l9l3 00001914 0000i96l 00001962 00001975 



00001976 
00002090 

00002355 

00003058 



00001977 
00002^0 1 

OOCO2393 



00001978 
00002130 

00002433 



00001994 
00002131 
00002447 



00001995 
00002146 

00002584 



00001996 
00002167 

00002982 



00001997 
00002171 

00002984 



00002001 
00002220 

00003042 



00002039 
00002224 
00003043 



00002067 
00002269 

00003044 



00002068 
00002319 

00003056 



GENREAL 

0002 *00000315* 

00000348 
00002433 



0000H40 
00002447 



00001809 
00002584 



00001902 00002090 00002167 00002220 00002224 00002269 00002355 00002393 



GEIU? 
0002 



*00000279* 

OOOOO33O 
000»i907 
00001940 
0000i975 
00001997 
0000202* 
00002080 
000021*7 
0000229S 
00002377 
00002450 
0000 2 963 
00002988 
OOOO3O3O 
OOO63O49 
00003187 
000&33$7 

00003425 



OOOOO341 
OOOO19O8 
00001950 
0000 1976 
00001998 
00002030 
00002090 
000021^1 
OQ002297 
OOOO2381 
00002457 
00002967 
00002992 

00003031 
OOOO3O5O 
00003i90 
00003369 
00003441 



00000345 
00601909 
00001951 
00001977 
00002001 
00002032 
00002101 
00002220 
00002311 
000023 9 2 
00002458 

00002968 
0000 30 13 
00003033 

OOOO3O53 
°003339 

0000^376 



00000346 
0000i9l2 
00001952 
00001978 
OOOO2OO3 
00002036 
00002108 
00002224 
00002319 
00002393 
00002459 
00002969 
OOOO3O14 
OOOO3O36 
OOOO3O56 
OOOO334O 
00003391 



00001809 
0000i9if 
00001960 
00001979 
000020J2 
0000203/ 

00002H5 
00002248 

00002332 
00002403 
OOOO2461 
00002973 
000030i$ 

00003036 
OOOO3O58 

OOOO3344 
00003397 



00001882 
0000i9i4 
00001961 
0000 1984 

OOOO2O13 
00002038 
00002130 
00002252 
00002335 
00002431 
00002474 
00002976 
0000 3O 16 

00003042 
OOOO3O6O 

OOOO3349 

00003*00 



00001902 
0000i920 

00001962 
0000i990 

00002014 
00002039 

00002131 
000022*0 
00002342 
00002433 
00002545 
00002977 
00OO30i7 
OOOO3O43 
00003061 
00003351 
000Q 3 *U 



00001903 
0000 1927 

00001966 
0000i99i 

00002016 
00002048 
00002139 
000022*8 
00002345 
00002434 
00002584 
00002978 
OOOO3O2O 
00003044 
OOOO3O62 
OOOO3354 
00003*12 



00001904 
0000i928 
00001967 
00001994 
00002026 
00002067 
00002146 
00002269 
00002384 
00002445 
00002958 
00002981 
OOOO3O24 
00003046 
0000 3O66 
OOOO3386 
00003413 



00001905 
00001929 

00001968 
0000 1995 

00002027 
00002068 
00002153 
00002277 
00002355 
00002447 
0000296i 

00002982 
OOOO3O28 
00003047 
00003169 

OOOO3362 
00003*18 



00001906 
0000l93i 

00001971 
00001996 
00002028 
00002076 
00002154 
0000228 
00002363 
00002448 
00002962 
00002984 
000030 2 9 

00003048 
00003173 

OOOO3364 
0000 3 *2o 



GEN2? 
0002 



*00000279* 

00000330 
00001907 
00001940 
0000i975 
00001997 
00002029 
00002080 
00002167 
00002295 
00002377 

00002456 
00002963 
00002988 
OOO03O3O 
00003049 
00003187 
OOOO3367 
00003425 



00000341 
00001908 
00001950 
00001976 
00001998 
00002030 
00002090 
00002l7l 
00002297 
00002381 
00002457 
00002967 
00002992 

00003031 
00003050 
00003190 
O0OO3369 
00003441 



00000345 
00001909 

00001951 
00001977 
00QQ2001 
00002032 
00002101 

0000222° 
00002311 
000023 9 2 
00002458 
OOOO2968 
00003013 
OO003O33 
00003053 
00003339 
00003376 



00000346 
00001912 
00001952 
00001978 
OOOO2OO3 
00002036 
00002108 

00002224 
00002319 
OOOO2393 
00002459 
00002969 
00003014 
OOOO3O36 
00003056 
00003340 
OOOO3391 



00001809 
00001913 
00001960 
0000i979 
00002012 
00002037 
00002115 
00002248 

00002332 
OOOO24O3 

00002461 
000029^i 
00003011 
00003038 
00003058 
00003344 
00003397 



00001882 
0000i9l4 

00001961 
0000i984 
00002013 
00002038 
00002130 

00002252 
00002335 

0000 2 43l 
00002474 
000029^6 

00003016 
00003042 
OOOO3O6O 
00003349 
00003400 



00001902 
00001920 
00001962 
0000i990 
000020J4 
00002039 
00002131 
OOOO226O 

000023*2 
00002433 
00002545 
000029 7 ^ 
00003017 
00003043 
00003061 
00003351 
00003411 



00001903 
00001927 

00001966 
0000i99i 
00002016 
00002048 
00002139 
00002268 
00002345 
00002434 
00002584 

000029^8 
00003020 

00003044 
00003062 
00003354 
00003412 



00001904 
00001928 
00001967 
00001994 
00002026 
00002067 
00002146 
000Q2269 
00002354 
00002445 
00002958 

00002981 
00003024 
00003046 
00003066 
00003356 
OOOO3413 



00001905 
00001929 

00001968 
00001995 
00002027 
OOOO2O68 
00002153 
00002277 
00002355 
00002447 
00002961 
00002982 
0OO0J028 
00003047 
00003169 
00003362 
OOOO3418 



00001906 
00001931 
00001971 
00001996 
00002028 
00002076 
00002154 
00002280 

00002363 
00002448 

00002962 
0000298* 
00003029 
00003048 
00003173 
00003364 
00003420 



GEN3? 
0002 



*00000279* 

00000330 
00001907 
0000}940 
00001975 
00001997 
0000202* 
00002080 
00002167 

000022 9 * 
00002377 

00002456 
00002963 

00002988 
OOOO3O3O 
00003049 
Q0003187 
OOOO3367 
00003425 



00000341 
00001908 
00001950 
00001976 

06001998 
00002030 
00002090 
08002i7i 
000022'7 
OOOO2381 
00002457 
00002967 
00002992 
OOOO3O3I 
00003050 

00003190 
00003369 

00003441 



00000345 
00001909 
0000J951 
00001977 
00002001 
00002032 
00002101 
00002220 
00002311 
000023 9 2 
00002458 
00002968 

00003013 
OOOO3O33 

00003053 
00003339 
00003376 



00000346 
00001912 
00001952 
00001978 

00002003 
00002036 
00002108 
00002224 
00002319 
OOOO2393 
00002459 
00002969 

00003014 
OOOO3O36 
OOOO3O56 
000033*0 
0000339i 



00001809 
00001911 
0OO0J96O 
00001979 
00002012 
00002037 
00002115 
00002248 
00002332 
OOOO24O3 
OOOO2461 
0000 2978 

00003015 
OOOO3O38 
00003058 
00003344 

00003397 



00001882 
00001914 
0000i96l 
00001984 
00002013 
00002038 
00002130 

00002252 
00002335 
00002431 
00002474 
00002976 
00003016 

OOOO3O42 
OOOO3O6O 
0000334g 
OOOO34OO 



00001902 
00001920 
0000i962 
00001990 

00002014 
00002039 
00002131 
OOOO226O 
00002342 
00002433 
00002545 
00002977 
00003017 
OOOO3O43 
OOOO3O61 
00003351 
000034U 



00001903 
00001927 
00001966 
00001991 
00002016 
00002048 
00002139 
00002268 
00002345 
00002434 
00002584 
0000j978 
00003020 
OOOO3O44 
OOOO3O62 
00003354 

00003412 



00001904 
00001928 
00001967 
00001994 
00082026 
00002067 
00002146 
00002269 
00002314 
00002445 
00002958 
00002981 
00003024 
OOOO3O46 
OOOO3O66 
00003316 

00003413 



00001905 
00001929 
00001968 
00001995 

00002027 
00002068 

00002153 
00002277 
00002355 
00002447 
0000296t 
00002982 
00003028 
OOOO3O47 
00003169 
00003362 
OOOO3418 



00001906 
00001931 
0000l97i 
00001996 

00002028 
00002076 
00002154 
00002280 
00002363 
00002448 
00002962 
00002984 
00003029 
OOOO3O48 

00003173 
00003364 

00003420 



GEQSY 

0002 *00000200* 



00000477 00000926 00001037 00001758 00001776 



G0T0STAT 

0002 *0000246i* 



00002477 00002595 



GQTOSY 

0002 *00000207* 



00000934 00002595 



GTRSY 
0002 



♦00000200* 
00000477 00000927 00001036 00001759 



HASH 
0002 



*00000417* 

00000425 
OOOOO544 

00081347 
OOOO2I6I 
OOOO2862 



00000453 
OOOOO545 
00001391 
OOOO23I4 
00002864 



00000508 
00000546 

00001429 
00002407 
00002870 



00000512 
00000555 
00001556 
OOOO2489 

00002898 



00000516 
00000557 
00001883 
00002557 
00003098 



00000520 
00000558 
00001892 
00002655 
00003H1 



00000524 
00000563 
00001941 
OOOO2662 
00003200 



00000527 
OOOOO566 

00002032 
00002066 
00003204 



00080529 
00000568 
00002055 
00002675 
00003228 



00000533 
00001224 
00002084 
00002696 
00003255 



00000542 
00001321 
00002118 
0000 28 34 
0000 3281 



00003294 00003309 00003320 



HASH1? 

0002 *00000417* 

00000508 
00000546 
00001429 
00002407 
00002870 
00003328 



00000512 
00000555 
00001556 
00002489 
00002B98 



00000516 
00000557 
00001883 
00002557 
00003098 



00000520 
00000558 
00001892 
00002655 
OOOO3111 



00000524 
OOOOO563 
00001941 
00002662 
OOOO32OO 



00000527 
00000566 
00002032 
00002666 
00003204 



0000052* 
00000566 
00002055 
00002675 
00003228 



00000533 
00001224 
00002084 
00002*96 
00003255 



00000542 
0000132J 
00002116 
00002834 
00083281 



00000544 
00001347 
00002161 

00002862 
00003294 



00000545 
00001391 
00002314 
00002864 
00003309 



HEADING 

0002 *00000241* 



00000248 00000254 
00003692 



00000409 OOOOO5O1 OOOOO633 00000644 00000886 0000^44 0000i067 00003477 00003529 



HEADTEXT 

0002 *0000O133* 



OOOOO244 00000 2 46 00000^09 
00001044 00001067 00003477 



OOOOO493 OOOOO494 00000496 
00003529 00003692 



00000499 OOOOOSOi OOOOO633 00000644 00000886 



0019 *00001938* 

00001954 00001955 

0033 *00002468* 

*0000247i# 00002472 *00002472* 00002472 00002473 

OO35 *00002533* 

00002538 00002539 00002540 00002541 

0037 *00002816* 

000028*7 000028 5 *00002906* 00002907 *00002907* 00002908 



0038 *00002944* 

00002950 00002952 
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